Bạn tham khảo nhé

Chương trình tìm số lần xuất hiện của phần tử x trong mảng là:

Program demx;
Uses crt;
Const n=10;
Var a:array[1..10] of real;
x:real;
Dem, i, spt:integer;
Begin
Clrscr;
Write(‘nhap so phan tu cua mang’);
Readln(spt);
For i:=1 to spt do
Begin
Write(‘nhap phan tu thu ‘,i,’ ’);
readln(a[i]);
End;
Write(‘nhap vao phan tu x can dem:’);
Readln(x);
For i:= 1 to spt do
If a[i]=x then inc(dem);
If dem=0 then write(‘khong co phan tu nao bang x!’) else
Write(co ‘,dem,’ phan tu bang x!’);
Readln;
End.

uses crt;
var i,x,d:integer;
a : array [1..10] of integer;
begin
clrscr;
for i:= 1 to 10 do
begin
write('Nhap a[',i,'] : ');readln(a[i]);
end;
write('Nhap x : ');readln(x);
for i:=1 to 10 do if a[i] = x then inc(d);
write('Phan tu ',x,' xuat hien ',d,' lan');
readln;
end.