cho N và dãy a1 a2 a3 a4,,,,,an. cho biết trong dãy có bao nhiêu số hạng có giá trị =8
2 câu trả lời
- Input: Dãy A gồm N số nguyên a1, a2..., aN ;
- Output: Các số hạng trong dãy A có giá trị bằng 8.
Bước 1. Nhập N, các số hạng a1, a2..., aN;
Bước 2. i<- k, k<- 0;
Bước 3. Nếu ai= 0 thì k <- k+1;
Bước 4. i <- i+1;
Bước 5: Nếu i > N thì đưa ra giá trị k, rồi kết thúc;
Bước 6. Quay lại bước 3.
Uses crt;
Var A:array[1..10000] of longint;
N,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
s:=0;
For i:=1 to n do
If A[i]=8 then inc(s);
Write('Co ',s,' gia tri bang 8');
Readln
End.