найдите сумму всех положительных элементов одномерного массива

Question

Информатика

Роза

23 мая, 05:19

найдите сумму всех положительных элементов одномерного массива

+4

Ответы (1)

Знаете ответ на вопрос?

Груня · Answer 1

var

a: array[1 ... 20] of integer;

s, i: integer;

begin

s : = 0;

for i : = 1 to 20 do

begin

a[i] : = random (40) - 20;

if a[i] >0 then

s : = s+a[i];

write (a[i]:4) ;

end;

writeln;

writeln (s) ;

end.