program rmq;
 var n:longint;
     a:array[1..10000] of longint;
     m:array[1..10000,1..10000] of longint;
     i,j,k,min,p,x,y,v:longint;
 begin
   assign(input,'rmq.in');
   assign(output,'rmq.out');
   reset(input);
   rewrite(output);
   readln(n,v);
   for i:=1 to n do readln(a[i]);
   for i:=1 to n do m[i,i]:=i;

   for i:=1 to n-1 do
     for j:=i+1 to n do
       if a[m[i,j-1]]<a[j] then
         m[i,j]:=m[i,j-1]
          else  m[i,j]:=j;


   for i:=1 to v do
     begin
       readln(x,y);
       writeln(a[m[x,y]]);
     end;
   close(output);
  end.