uses crt;
var a : array [1.. 250] of integer;
i, n, d1, d2 : integer;
begin
clrscr;
write('Nhap so luong phan tu : '); readln(n);
write('Nhap mang A gom ', n ,' phan tu : ');
for i := 1 to n do begin read(a[i]);
if a[i] >0 then d1 := d1 + 1;
if a[i] < 0 then d2 := d2 + 1;
end;
write('Day co ', d1 ,' so nguyen duong va ', d2 ,' so nguyen am');
readln
end.