Question

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

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)

Answer 2

спасибо