thangk5h

program giai_jup;
use crt;
var i,n,x:integer;
a:array[1..10]of integer;
begin
clrscr;
write('nhap vao gia tri cua n=');readln(n);
for i:=0 to n do
begin
writeln('nhap vao gia tri cua ',a'[',i,']=');readln(a[i]);
writeln('nhap vao gia tri cua x=');readln(x);
end;
for i:=0 to n do
begin
if x=a[i] then writeln('vi tri cua x trong day la : ',i);
end;
readln.
end.