program mas;
uses crt;
var a,n,i,kp,ko,kn: integer;
begin
clrscr;
write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
kp:=0;ko:=0;kn:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then kp:=kp+1
else if a<0 then ko:=ko+1
else kn:=kn+1;
end;
writeln('количество отрицательных чисел= ',ko);
writeln('количество положительных чисел равных = ',kp);
writeln('количество нолей= ',kn);
readln;
end.
