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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.