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 k
2 câu trả lời
XĐBT
Inp: n,k,dãy a
Out: có bao nhiêu số hạng trong a=k
Thuật toán:
B1: nhập n,k,dãy a
B2: S<--0;
B3: i<--1 nếu a[i] =k thì S<--S+1;
B4: i<--i+1; quay lại bước 3, nếu i>n thì kết thúc
B5:Xuất râ màn hình S
B6: kết thúc
Program baitap;
Uses crt;
Var A:array[1..200] of integer;
N,i,k,dem:integer;
Begin
Clrscr;
Write('N='); Readln(N);
Write('k='); Readln(k);
dem:=0;
For i:=1 to N do
Begin
Write('A[',i,']=');
Readln(A[i]);
If A[i]=k then dem:=dem+1;
End;
Writeln('Co ',dem,' so hang trong day bang ',k);
Readln
End.
Câu hỏi trong lớp
Xem thêm
