program am_duong;
uses crt;
var A:array[1..1000] of integer;
n,i,da,dd:integer;
begin
clrscr;
write('Nhap so luong: '); readln(n);
da:=0; dd:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if A[i]<0 then da:=da+1;
if A[i]>0 then dd:=dd+1;
end;
write('Co ',da,' so am va co ',dd,' so duong');
readln;
end.