program d;

uses crt;

var A : array[1..100] of integer;

    n,i : integer;

    dem1 : longint;

begin

     clrscr;

     write('Nhap vao so luong phan tu N := ');

     readln(n);

     for i := 1 to n do

         begin

         write('Nhap vao phan tu A',i,' := ');

         readln(A[i]);

         end;

     write('Cac phan tu am co trong mang : ');

     dem1 := 0;

     for i:= 1 to n do

       if A[i] >= 0 then

         begin

         write(A[i],' ');

         dem1 := dem1 +1;

         end;

         writeln;

     write('So luong cac phan tu am := ',dem1);

readln;

end.