Создать программу нахождения количества всех положительных элементов массива

Question

Информатика

Евстахий

25 августа, 10:38

Создать программу нахождения количества всех положительных элементов массива

+5

Ответы (1)

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

Олимпий · Answer 1

Writeln ('Введите количество элементов в массиве') ;

readln (n) ;

for i:=1 to n do

begin

writeln ('Введите элемент массива') ;

readln (A[i]) ;

end;

Sum:=0;

for i:=1 to n do

if a[i]>0 then

Sum:=Sum+a[i];

Writeln ('Сумма положительных элементов = ' Sum)