Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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