Program Dem; Uses crt; Var A: array[1..10000] of longint; i,n,d: longint; Begin Clrscr; Write('Nhap N: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End;
d:=0; For i:=1 to n do If A[i]=0 then inc(d); Write('Co ',d,' phan tu co gia tri bang 0'); Readln End.
