Question

Необходимо составить программу, которая вводит с клавиатуры n целых чисел

Answer 1

programm 1;
uses crt
var a,n,i,c1,c2,c3:integer;
begin
c1:=0;
c2:=0;
c3:=0;
writeln("введите количество");
readln(n);
for i:=1 to n do
begin
writeln ("Введите число");
readln(a);
if a>0 then c1:=c1+1;
if a<0 then c2:=c2+1;
if a=0 then c3:=c3+1;
end;
writeln ("Положительных: "+c1+" Отрицательных: "+c2+"Нулевых: "+с3);
end.