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

1

Ответы и объяснения

2013-05-22T19:23:46+04:00

Я не знаю через массив или как это писать, поэтому напишу простейший вариант
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.