uses crt;
var A : array [1.. 1000] of integer;
i, N, d : integer;
begin
clrscr;
d := 0;
write('Nhap so phan tu N = '); readln(N);
write('Nhap ', N ,' phan tu mang A : ');
for i := 1 to N do begin read(A[i]);
if (A[i] = 0) then d := d + 1;
end;
writeln('Day A co ', d ,' so 0');
readln
end.