Cod sursa(job #1168408)
| Utilizator | Data | 8 aprilie 2014 12:36:09 | |
|---|---|---|---|
| Problema | Range minimum query | Scor | 30 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.6 kb |
program rmq_elementar;
const nmax=100000;
inf=1 shl 30;
var a:array[1..nmax] of longint;
n,i,m,x,y,min,j:longint;
f,g:text;
bufin,bufout:array[1..1 shl 16] of byte;
begin
assign(f,'rmq.in');
assign(g,'rmq.out');
reset(f);
rewrite(g);
settextbuf(f,bufin);
settextbuf(g,bufout);
readln(f,n,m);
for i:=1 to n do
readln(f,a[i]);
for i:=1 to m do
begin
min:=inf;
readln(f,x,y);
for j:=x to y do
if a[j]<min then min:=a[j];
writeln(g,min);
end;
close(f);
close(g);
end.
