1. массив а вводится с клавиатуры. найти сумму его элементов. размер произвольный. 2. найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. размер произвольный. 3. массив а вводится с клавиатуры. найти среднее арифметическое его элементов с нечетными номерами. размер произвольный. 4. массив а вводится с клавиатуры. найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. размер произвольный.

231

284

Посмотреть ответы 3

Ответы на вопрос:

lsofa1204

Информатика

4,4(93 оценок)

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

djjegsdhssbsv

Информатика

4,6(24 оценок)

//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.