var n,m,i,j,k,p,d,b,x,y:longint;
    buf:array[1..100000] of char;
    a:array[0..30,0..100000] of longint;
    
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);
  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:=0 to i do begin
    for p:=1 to n do
      write(a[k,p]:5);
    writeln;
  end;
  for k:=1 to m do begin
    read(x,y);
    d:=y-x+1;
    p:=1;
    b:=0;
    while p<=d/2 do begin
      p:=p*2;
      inc(b);
    end;
//    writeln(b,' ',p);
//    writeln(a[b,x],' ',a[b,y-p+1]);
    writeln(min(a[b,x],a[b,y-p+1]));
  end;
end.