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

Question

Информатика

Настюня

21 июня, 22:04

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

+1

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