var f,g:text;  
        a:array[1..100000]of longint;  
        x,op,poz,c,st,dr,n,m,i:longint;  
    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,op,x);  
    if op=0 then begin  
     poz:=0;  
     st:=1;  
     dr:=n;  
     while (st<=dr)and(poz<>0)do begin  
      c:=(st+dr)div 2;  
      if x>a[c] then st:=c+1;  
      if x<a[c] then dr:=c-1;  
      if x=a[c] then poz:=c;  
     end;  
     if poz<>0 then  
      while x=a[poz+1] do inc(poz);  
     if poz<>0 then writeln(g,poz)  
      else writeln(g,'-1');  
    end;  
    if op=1 then begin  
     poz:=0;  
     st:=1;  
     dr:=n;  
     while (st<=dr)and(poz<>0) do begin  
      c:=(st+dr) div 2;  
      if x<a[c] then dr:=c-1;  
      if x>a[c] then st:=st-1;  
      if x=a[c] then poz:=c;  
     end;  
     c:=(st+dr) div 2;
     writeln(g,c); 
    end;  
    if op=2 then begin  
     poz:=0;  
     st:=1;  
     dr:=n;  
     while (st<=dr)and(poz<>0) do begin  
      c:=(st+dr) div 2;  
      if x<a[c] then dr:=c-1;  
      if x>a[c] then st:=st-1;  
      if x=a[c] then poz:=c;  
     end;  
     c:=(st+dr) div 2;
     writeln(g,c+1); 
    end;  
   end;  
   close(f);  
   close(g);  
   end.