1. массив а вводится с клавиатуры. найти сумму его элементов. размер произвольный. 2. найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. размер произвольный. 3. массив а вводится с клавиатуры. найти среднее арифметическое его элементов с нечетными номерами. размер произвольный. 4. массив а вводится с клавиатуры. найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. размер произвольный.
209
310
Ответы на вопрос:
1.a[n] i = 0; sum = 0; пока i < n; sum = sum + a[i] увеличить i на 1. 2.a[n] i = 0; sum = 0; пока i < n; если a[i] делиться на 3 без остатка, то : (sum = sum + a[i]) увеличить i на 1. 3.a[n] i = 1; sum = 0; пока i < n; sum = sum + a[i] увеличить i на 2. сред. знач. = sum/i 4. a[n] i = 0; sum = 0; chet =0; nechet = 0; otr =0; пока i < n; если a[i] < 0, то : (otr = otr * a[i]) если i делиться на 2, то (chet = chet + a[i]) в ином случае nechet = nechet +1 увеличить i на 1. сума четных - chet произведение отрицательных - otr количество нечетніх - nechet
//pascalabc.net версия 3.3.5.1636 от 10.03.18 //если программа не запускается, то обновите версию const handsfree = true; nmax = 100; random_min = -28; random_max = 27; var a: array[1..nmax] of integer; i, n, j, count: integer; mini, maxi: integer; min, max: real; temp: real; sum, product, harmonic: real; k: integer; begin {ввод массива} n : = nmax; if handsfree then n : = random(nmax - 5) + 5 else begin write('n = '); readln(n); end; writeln('данные массива: '); for i : = 1 to n do begin if handsfree then begin a[i] : = random(random_max - random_min) + random_min; write(a[i], ' '); end else readln(a[i]); end; writeln(); {подсчет суммы и произведения и агригатов и кол-ва} sum : = 0; product : = 1; for i : = 1 to n do begin sum : = sum + a[i]; if a[i] mod 3 = 0 then {если нужен фильтр} product : = product * a[i]; end; writeln('1) sum = ', sum); writeln('2) product = ', product); {подсчет суммы и произведения и агригатов и кол-ва} sum : = 0; count : = 0; for i : = 1 to n do begin if i mod 2 = 1 then {если нужен фильтр} begin count : = count + 1; sum : = sum + a[i]; end; end; writeln('3) average (selected) = ', sum / count); {подсчет суммы и произведения и агригатов и кол-ва} sum : = 0; product : = 1; count : = 0; for i : = 1 to n do begin if i mod 2 = 0 then {если нужен фильтр} sum : = sum + a[i]; if a[i] < 0 then {если нужен фильтр} product : = product * a[i]; if a[i] mod 2 = 1 then {если нужен фильтр} count : = count + 1; end; writeln('4) count = ', count); writeln('4) sum = ', sum); writeln('4) product = ', product); end.
Объяснение:
16бит=2байта
2мб=2048кб
1гб=1024мбит
6байт=48 бит
1кб=1024 байт
100байт=800бит
64 бита=8 байтов
0.5кб=512 байт
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
SanyaLe902.06.2022 01:15
-
latiff20.07.2021 09:51
-
Elizaveta3012200507.06.2021 03:16
-
Наташа12Няша17.06.2023 18:11
-
KLerK1129.05.2020 05:13
-
jfksbsj15.01.2020 17:50
-
дарханнысанов07.02.2021 06:25
-
danilklimenko212.10.2020 23:29
-
Abdresh06.02.2023 10:07
-
YtNazarIdline07.11.2020 17:13
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.