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 27/08/2021 Bởi Audrey 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
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. Bình luận
có n số có gtri = 0 ( nếu a=0 )
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.