program ct;
uses crt;
var d,i:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap 100 so nguyen tu ban phim');
for i:=1 to 100 do
begin
write('nhap mang A[',i,']='); readln(A[i]);
end;
d:=0;
for i:=1 to 100 do
if A[i]=0 then d:=d+1;
writeln('co', d,' so 0 trong day');
readln