var n,m,i,j,k,p,d,b,x,y:longint;
    a:array[0..30,0..100000] of longint;
    c:array[1..100000] of longint;
    buf:array[1..20000] of char;
    
function min(a,b:longint):longint;
begin
  if a<b then min:=a
  else min:=b
end; 
    
begin
  assign(input,'rmq.in');
  assign(output,'rmq.out');
  reset(input);
  rewrite(output);
//  assign(input,'input.in');
  settextbuf(input,buf);
  read(n,m);
  c[1]:=0;
  for i:=2 to n do begin
    c[i]:=c[i div 2] +1;
  end;
  for i:=1 to n do
    read(a[0,i]);
  p:=1;
  i:=1;
  while p<=n do begin
    j:=1;
    while j+p <= n do begin
      a[i,j]:=min(a[i-1,j],a[i-1,j+p]);
      inc(j);
    end;
    inc(i);
    p:=p*2;
  end;
  for k:=1 to m do begin
    read(x,y);
    d:=y-x+1;
    b:=c[d];
    p:=1 shl b;
    writeln(min(a[b,x],a[b,y-p+1]));
  end;
end.