var n,m,i,j,min,x,y:longword;
        t:array[1..100100]of longword;
        b,k:text;

begin
        assign(b,'rmq.in');
        assign(k,'rmq.out');

        reset(b);
        rewrite(k);

        readln(b,n,m);

        for i:=1 to n do readln(b,t[i]);

        for i:=1 to m do begin
                readln(b,x,y);
                min:=t[x];
                for j:=x+1 to y do

                        if t[j]<min then min:=t[j];

                writeln(k,min);

                        end;

        close(b);
        close(k);

end.