var a:array[1..20000,1..20000] of longint;
    x,y,n,m,i,j:longint;
    f,g:text;
begin
 assign(f,'rmq.in');reset(f);
 assign(g,'rmq.out');rewrite(g);
 readln(f,n,m);
 for i:=1 to n do
  readln(f,a[i,i]);

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

for i:=1 to m do
 begin
  read(f,x,y);
  writeln(g,a[x,y]);
 end;

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