Pagini recente » Cod sursa (job #2317917) | Cod sursa (job #421297) | Cod sursa (job #2203850) | Cod sursa (job #1102010) | Cod sursa (job #335492)
Cod sursa(job #335492)
program jaj;
type szam=0..100000;
nagyszam=0..1000000;
var n,a,b,min,i,j:szam;
m:nagyszam;
v:^szam;
ki,be:text;
begin
getmem(v,sizeof(szam)*100000);
assign(be,'rmq.in');
assign(ki,'rmq.out');
reset(be);
rewrite(ki);
readln(be,n,m);
for i:=1 to n do readln(be,v[i]);
for i:=1 to m do
begin
readln(be,a,b);
min:=100000;
for j:=a to b do
if v[j]<min then min:=v[j];
writeln(ki,min);
end;
close(ki);
end.