Var
m: array [1..10000] of integer;
k,i:integer;
Begin
k:=0;
randomize;
For i:=1 to 10 do
read(m[i]);
If m[i]=0 then k:=k+1;
Writeln(k);
end.
