Массив из 15 целых чисел. На отрезке от [-10; 10]

а) Вычислить количество положительных элементов;

б) Вычислить сумму положительных элементов массива;

в) Вычислить среднеарифметический элементов стоящих на четных местах.

Question

Информатика

Олоф

11 февраля, 14:43

Массив из 15 целых чисел. На отрезке от [-10; 10]

а) Вычислить количество положительных элементов;

б) Вычислить сумму положительных элементов массива;

в) Вычислить среднеарифметический элементов стоящих на четных местах.

+2

Ответы (1)

Знаешь ответ?

Темплитон · Answer 1

Var m, j, r, n, sum, sumI, k:integer; C, b:Array[1 ... 15]of integer; sr:real; Beginfor r:=1 to 15 do beginC[r]: = random (20) - 10; write (C[r]:4); if C[r] >0 then begin n : = n + 1; sum: = sum + C[r]; end; if r mod 2 = 0 then begin k : = k + 1; sumI: = sumI + C[r]; j:=j+1; b[j]:=C[r]; end; end; writeln; writeln ('Kоличество положительных', n:4); writeln ('Cуммa положительных', sum:4); writeln ('Cуммa элементов стоящих на четных местах', sumI:4); writeln ('Cреднеарифметическое элементов стоящих на четных местах', sumI/k:4); foreach m in b dowrite (m:4); end.