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