program kiemtra;
uses crt;
var A:array[1..100] of integer;
n,i,da:byte;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');
{vua nhap vua dem so am}
da:=0;
for i:=1 to n do
begin
write('Phan tu thu ',i,': ');
readln(A[i]);
if A[i]<0 then da:=da+1; {neu la so am thi tang da}
end;
writeln('Trong mang co ',da,' phan tu am');
writeln('Trong mang co ',n-da,' phan tu khong am'); {neu khong phai so am thi la so khong am}
readln
end.