Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

      N,i,x: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

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

    For i:=1 To N Do

        Begin

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

          End;

Write('Nhap X='); Readln(x);

If TimKiem(X,N,A)<>0 Then

    WriteIn('Vi tri cua X trong mang la:', TimKiem(X,N,A))

Else Writeln('X khong co trong mang.');

Readln;

End.

*Chúc bạn học tốt! ^_^ Cấm sao chép bài mình!

program ct;

uses crt;

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

      i,n,x:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   writeln('Nhap so x'); readln(x);

   for i:=1 to n do

     if A[i]=x then writeln(x,' co nam trong mang A')

                    else writeln(x,' ko nam trong mang A');

readln;

end.

Học tốt!