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

Question

Информатика

Донат

21 мая, 00:37

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

+3

Ответы (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.