Question

в одномерном массиве из 10 элементов посчитать количество положительных элементов.
Pascal abc

Answer 1

const N =10;  
var A: array [1..N] of real; 
i, k: real;  
begin  
{ввод массива}  
for i:=1 to N do 
if A[i]>0 then  
k:=k+1; 
writeln ('Положительных чисел: ', k); 
end.