Cod sursa(job #737681)

Utilizator mada0222Tomus Madalina mada0222 Data 20 aprilie 2012 00:33:16
Problema Range minimum query Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.61 kb
program blablabla;
uses math;
var f,g:text;
a:array[0..20,1..100000] of integer;
bufin,bufout:array[1..65000] of char;n,m,i,x,y,j,b,aux:longint;
begin
assign(f,'rmq.in');
reset(f);
assign(g,'rmq.out');
rewrite(g);
  settextbuf(f,bufin);
  settextbuf(g,bufout);
read(f,n,m);
for i:=1 to n do
begin
readln(f,x);
a[0,i]:=x;
end;
 { for i:=1 to trunc(log2(n)) do
  for j:=1 to (n-(1 shl (i))+1) do
  A[i,j]:=min(A[i-1,j],a[i-1,j+1 shl (i-1)]);

for i:=1 to m do
begin
read(f,x,y);
b:=trunc(log2(y-x+1));
aux:=y-x+1-(1 shl b);
writeln(g,min(a[b,x],a[b,x+aux]));
end; }


close(f);
close(g);
end.