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

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.