program pascal;
var f,g:text;
   n,m,i,j,min,a,b:longint;
   v:array[1..100000] of longint;
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,v[i]);
for j:=1 to m do
 begin
  readln(f,a,b);
  min:=maxint;
  for i:=a to b do
   if v[i]<min then min:=v[i];
   writeln(g,min);
  end;
close(f);
close(g);
end.