* thuật toán:

B1: s ← 0 (s là số lần mà x xuất hiện trong mảng) 

B2: nhập giá trị cho xnhập n (số lượng phần tử)

B3: nhập n (số lượng phần tử)

B4: cho biến đếm i chạy từ một tới n để nhập giá trị cho n phần tử đồng thời kiểm tra, nếu phần tử thứ i của mảng = s thì tăng s lên 1 đơn vị

B5: nếu s=0 thông báo ra màn hình " trong mảng không có x" ngược lại in ra màn hình " trong mảng có x" và thông báo s

B6: kết thúc chương trình

* chương trình:

uses crt;
var a: array[1..1000] of integer;
i,n,s,x: integer;
begin
clrscr;
write('nhap so bat ky x= '); readln(x);
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': '); readln(a[i]);
if a[i]=x then inc(s);
end;
if s=0 then write('trong mang khong co ',x)
else
begin
writeln('trong mang co ',x);
write(x,' xuat hien ',s,' lan trong mang');
end;
readln;
end.