Cho N và dãy số a1...aN, hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0
2 câu trả lời
Program Hotboy ;
Uses crt;
Var a:array[1..100] of integer;
D,i,n: longint;
Begin
Clrscr;
D:=0;
Write('nhap n');
Readln(n);
For i:=1 to n do
Write(''A[',i,']');
Readln(A[i]);
For i:=1 to n do
If A[i]=0 then inc(D);
Writeln('co so so la',D);
Readln
End.
