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.

uses crt;
var n,i,dem:byte;
a:array[1..100] of integer;
    tong:integer;
BEGIN
        clrscr;
        write('Nhap N:'); readln(n);
        dem:=0;         tong:=0;
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
                if a[i]>=0 then
                begin
                        inc(dem);
                        tong:=tong+a[i];
                end;
        end;
        writeln('Trong mang co ',n-dem,' phan tu am.');
        writeln('Tong cac phan tu khong am la ',tong,'.');
        readln
END.