var f,g:text;
v:array[1..100000]of integer;ok:boolean;i,j,n,m,k,x,y:longint;
begin
assign(f,'cautbin.in');reset(f);
assign(g,'cautbin.out');rewrite(g);
readln(f,n);
for i:=1 to n do
read(f,v[i]);
readln(f);
readln(f,m);
for i:=1 to m do begin
readln(f,y,x);
ok:=false;
if y=0 then
begin
     for j:=n downto 1 do
          if v[j]=x then begin writeln(g,j);ok:=true;k:=j;break;end;
                 if ok=false then begin writeln(g,-1);break;end;end else
if y=1 then begin
            for j:=k downto 1 do
            if v[j]<=x then begin writeln(g,j);k:=j;break;end;end else
if y=2 then begin
         for j:=1 to k do if v[j]>=x then begin writeln(g,j);break;end;end;
end;

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