Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1;
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

      N,X,dem: integer;

Begin

Clrscr;

dem:=0;

Write('Nhap N:'); Readln(N);

Write('Nhap X:'); Readln(X);

Writeln('Nhap cac phan tu:');

For i:=1 to N do 

   Begin

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

   Readln(A[i]);

   End;

For i:=1 to N do If A[i]=X then dem:=dem+1;

If dem>0 then writeln('Phan tu X co trong mang va co ',dem,' lan')

                else writeln('Phan tu X khong co trong mang');

Readln;

End.