Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ppp
Language: PASCAL
Code:
Program M;
Var a,n,i,k:integer;
Begin
K:=0;
Read(n);
For i:=1 to n do 
Begin 
Read(a)
If (a=0) then 
K:=k+1;
End;
Writeln(k);
End.
Comments: