var i,m,n,o,x,mij,st,dr,rez:longint;
    a:array[0..100000] of longint;
    f,g:text;
    ok:boolean;
begin
assign(f,'cautbin.in');
reset(f);
assign(g,'cautbin.out');
rewrite(g);
read(f,n);
for i:=1 to n do read(f,a[i]);
read(f,m);
for i:=1 to m do
        begin
        read(f,o,x);
        ok:=false;
        st:=1;
        dr:=n;
        if (o=0) then
                begin
                while (st<=dr) do
                        begin
                        mij:=(st+dr) div 2;
                        if a[mij]<=x then st:=mij+1
                        else
                         dr:=mij-1;
                        end;
        if a[mij]>x then mij:=mij-1;
        if a[mij]=x then writeln(g,mij) else
                writeln(g,-1)
                end;
        if o=1 then
                begin
                 while (st<dr) do
                        begin
                        mij:=(st+dr) div 2;
                        if a[mij]<=x then st:=mij+1
                        else
                         dr:=mij;
                        end;
                        mij:=(st+dr) div 2;
        if a[mij]>x then mij:=mij-1;
        writeln(g,mij)
                end;

          if o=2 then
          begin
                if x>a[dr] then writeln(g,n)
                else
                begin
                while (not ok) and (st<=dr) do
                        begin
                        mij:=(st+dr) div 2;
                        if a[mij]=x then
                                begin
                                rez:=mij;
                                if a[mij]<>a[mij-1] then ok:=true
                                        else dr:=mij-1;
                                end
                        else
                        if x<a[mij] then dr:=mij-1
                        else
                        if x>a[mij] then st:=mij+1;
                        end;

        writeln(g,rez);
        end;
        end;
end;


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