program xuathien;

uses crt;

var A:array[1..10000] of integer;

      n,i,x,d:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write('A[',i,']= ');

  readln(A[i]);

 end;

writeln('Day vua nhap la:');

for i:=1 to n do

 write(A[i]:4);

write('Nhap X: ');   readln(x);

d:=0;

for i:=1 to n do

 if A[i]=x then d:=d+1;

write('Xuat hien ',d,' lan');

readln

end.

Program demso

Uses crt;

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

i, k, t, N : integer;

Begin

  clrscr;

 Write ('Nhap so phan tu: '); Readln(N);

For i:=1 to N do

begin

Write('Nhap a[',i,']: ');

Readln(a[i]);

end;

Write('Nhap gia tri muon dem trong mang: ');Readln(k);

i:=1;

t:=0;

While i <= N do 

begin

         if a[i] = k then t:=t+1;

         i := i+1;

end;

Writeln('So lan xuat hien cua ',k,' trong mang la: ', t);

Readln;

End.