program tin;

uses crt;

Var k,n,i,dem : Integer;

      A: array[1..100] of Integer;

Begin

   Clrscr;

   write('Nhap so phan tu cua day A:'); readln(n);

   For i:=1 to n do begin

       write('Nhap gia tri cho A[',i,']:'); readln(A[i]);

            end;

   dem:=0;

   write('Nhap gia tri cua k:'); readln(k);

   For i:=1 to n do if A[i] = k then dem:=dem+1;

   write('So lan xuat hien cua', k, ' trong day A la:', dem);

readln;

end.

uses crt;

var a: array[1..100] of integer;

i,n,k,d: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

write ('nhap k: ');  readln (k);

for i:=1 to n do begin readln (a[i]); if a[i]=k then d:=d+1; end;

writeln (k,' xuat hien ',d,' lan');

readln;

end.

$#Trumtinhoc$