Найдите сумму положительных элементов заданного массива, содержащего 5 чисел

Question

Информатика

Антоныч

21 августа, 16:13

Найдите сумму положительных элементов заданного массива, содержащего 5 чисел

+3

Ответы (1)

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

Феосовия · Answer 1

Var

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

s, i: integer;

begin

for i:=1 to 5 do

begin

write ('Введите значение: ') ;

read (a[i]) ;

if a[i]>0 then s:=s+a[i];

end;

writeln ('Сумма положительных членов массива: ', s) ;

end.