uses crt;
 
var v:array[1..100000] of longint;
    x,tip,m,j,n,i:longint;
    g,f:text;
 
function caut0(x:longint):longint;
var pas, lim : longint;
begin
    pas:=1 shl 16;
    lim:=0;
    while pas<>0 do
        begin
            if (lim+pas<=n) and ( v[lim+pas]<=x) then
                lim:=lim+pas;
            pas:=pas>>1;
        end;
    if v[lim] <> x then lim := -1;
    caut0:=lim;
end;
 
function caut1(x:longint):longint;
var pas, lim : longint;
begin
    pas:=1<<16;
    lim:=0;
    while pas<>0 do
        begin
            if (lim+pas<=n) and ( v[lim+pas]<=x) then
                lim:=lim+pas;
            pas:=pas>>1;
        end;
    caut1:=lim;
end;
 
function caut2(x:longint):longint;
var pas, lim : longint;
begin
    pas:=1<<16;
    lim:=0;
    while pas<>0 do
        begin
            if (lim+pas<=n) and ( v[lim+pas]<x) then
                lim:=lim+pas;
            pas:=pas>>1;
        end;
    caut2:=lim+1;
end;
 
begin
    assign(f,'cautbin.in');
    reset(f);
    assign(g,'cautbin.out');
    rewrite(g);
    read(f,n);
    for i:=1 to n do
        read(f,v[i]);
    read(f,m);
    for i:=1 to m do
        begin
            read(f,tip,x);
            if tip = 0 then writeln(g,caut0(x));
            if tip = 1 then writeln(g,caut1(x))
                else if tip = 2 then writeln(g,caut2(x));
        end;
    close(f);
    close(g);
end.