Program Mang; Uses crt; Var A:array[1..10000] of longint; i,n,dem: longint; Begin Clrscr; Write('Nhap n: '); readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
dem:=0; For i:=1 to n do If A[i]>=0 then inc(dem); Write('Co ',dem,' so khong am'); Readln End.
