Cho N và dãy số nguyên đi từ a1 ...aN và 1 số k. Hãy cho biết có bao nhiêu giá trị k trong dãy a.
1 câu trả lời
Program baitap;
Uses crt;
Var A:array[200] of integer;
N,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,' gia tri k trong day a');
Readln
End.
