Program HOC24;
var i,duong,am: byte;
a: array[1..100] of integer;
begin
for i:=1 to 100 do
begin
write('Nhap so thu ',i,' :'); readln(a[i]);
end;
duong:=0; am:=0;
for i:=1 to n do
begin
if a[i]>0 then duong:=duong+1;
if a[i]<0 then am:=am+1;
end;
writeln('Co ',duong,' so nguyen duong');
write('Co ',am,' so nguyen am');
readln
end.