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 Dem;
Uses crt;
Var A: array[1..10000] of longint;
i,n,d: longint;
Begin
Clrscr;
Write('Nhap N: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
d:=0;
For i:=1 to n do
If A[i]=0 then inc(d);
Write('Co ',d,' phan tu co gia tri bang 0');
Readln
End.
Mô tả thuật toán :
Bước 1 : nhập số n và dãy a1, a2, .. , an
Bước 2 : i ← 1, dem ← 0
Bước 3 : nếu i > n thì đưa ra giá trị dem rồi kết thúc
Bước 4 :
Bước 4.1 : nếu a[i] = 0 thì dem ← dem + 1
Bước 4.2 : i ← i + 1 quay lại bước 3
Câu hỏi trong lớp
Xem thêm
