Cho 1 dãy số gồm n phần tử ( n <250 ) và giá trị a1;a2;... an các phần tử a[i] Đếm các phần tử không âm trong

program khongam;

uses crt;

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

      n,i,d:integer;

begin

     clrscr;

     write(‘Nhap so luong phan tu n: ‘);   readln(n);

     d:=0;

     for i:=1 to n do

          begin

               write(‘A[‘,i,’]= ‘);   readln(A[i]);

               if A[i]>=0 then d:=d+1;

          end;

     write(‘Trong day co ‘,d,’ phan tu khong am’);

     readln;

end.