uses crt;
var i,x,n:integer;
k:boolean;
a : array [1..1000] of integer;
begin
clrscr;
write('Nhap n : ');readln(n);
for i:= 1 to n do
begin
write('Nhap a[',i,'] : ');readln(a[i]);
end;
write('Nhap x : ');readln(x);
k:=false;
for i:=1 to 10 do if a[i] = x then k:=true;
if k = true then 
write('Phan tu ',x,' co xuat hien trong day')

else write('Khong co ',x,' trong day');
readln;
end.

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
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
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.