Найти среднее арифметическое всех положительных элементов одномерного массива. в delphi.

186

371

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

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

крымнаш

Информатика

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

Const n = 30; var a: array[1..n] of integer; i, s: integer; begin randomize; s : = 0; writeln('исходный массив'); for i : = 1 to n do begin a[i] : = random(100) - 50; write(a[i]: 4); if a[i] > 0 then s : = s + a[i] end; writeln; writeln('сумма положительных элементов равна ', s) end. тестовое решение: исходный массив -17 -8 11 -47 30 -32 18 -15 -36 18 -3 45 11 44 -14 -33 13 -26 -8 -31 -42 45 -9 2 42 48 6 10 -12 27 сумма положительных элементов равна 370