Question

Определить количество положительных чисел среди заданных N чисел

Answer 1

Я не знаю через массив или как это писать, поэтому напишу простейший вариант
program n_pologitelnih;

uses crt;

var i,n,k,a:integer;

begin

clrscr;

write('Введи N=>> ');

readln(n);

for i:=1 to n do

begin

write('Введи число');

readln(a);

if a>0 then k:=k+1;

end;

write('Положительных чисел из ',n,' введенных - ',k);

readln;

end.