var f,g:text;
   c,s,x,d,n,m,i,w,ww,b:longint;
   a:array[1..100000] of longint;
procedure cautare(x:longint);
begin
s:=1;
d:=n+1;
repeat
m:=(s+d) div 2;
if x >a[m] then s:=m+1
else
d:=m
until s >=d;
if d>n then writeln(g,-1)
else
if x =a[d] then writeln(g,d)
else writeln(g,-1)
end;


BEGIN

assign(f,'cautbin.in');
reset(f);
assign(g,'cautbin.out');
rewrite(g);
read(f,w);
for i:=1 to w do
read(f,a[i]);
readln(f);
read(f,ww);
for i:=1 to ww do
begin
readln(f,c,b);
cautare(b);

end;
close(f);close(g);
END.