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
bước 1 : nhập a1 , a2,... an , N , k=0
bước 2 : gán i =1, d=0 ( d là biến đếm )
b3 : nếu i>n thì đưa ra kết quả rồi kết thúc
b4: cho Ai = k suy ra d=d+1
b5: i=i+1 rồi quay lại bước 3
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.
Câu hỏi trong lớp
Xem thêm
