【Vijos1514】天才的记忆

【Description】

　　从前有个人名叫W and N and B,他有着天才般的记忆力，他珍藏了许多许多的宝藏。在他离世之后留给后人一个难题(专门考验记忆力的啊！)，如果谁能轻松回答出这个问题，便可以继承他的宝藏。题目是这样的：给你一大串数字（编号为1到N，大小可不一定哦！），在你看过一遍之后，它便消失在你面前，随后问题就出现了，给你M个询问，每次询问就给你两个数字A,B，要求你瞬间就说出属于A到B这段区间内的最大数。一天，一位美丽的姐姐从天上飞过，看到这个问题，感到很有意思（主要是据说那个宝藏里面藏着一种美容水，喝了可以让这美丽的姐姐更加迷人），于是她就竭尽全力想解决这个问题。BUT，她每次都以失败告终，因为这数字的个数是在太多了！于是她请天才的你帮他解决。如果你帮她解决了这个问题，可是会得到很多甜头的哦！

---

【Input】

　　一个整数N表示数字的个数,接下来一行为N个数。第三行读入一个M，表示你看完那串数后需要被提问的次数，接下来M行，每行都有两个整数A,B。

---

【Output】

　　输出共M行，每行输出一个数。

---

【Sample Input】

6
34 1 8 123 3 2
4
1 2
1 5
3 4
2 3

---

【Sample Output】

34
123
123
8

---

【题解】

　　题目要求求出区间内最大值，很容易想到RMQ问题，用ST算法即可。

　　参考代码如下：
　　

var n,m:longint;
    a:array[0..300100] of longint;
    f:array[0..300100,0..20] of longint;
function max(x,y:longint):longint;
  begin if x>y then exit(x) else exit(y); end;
procedure init;
  var i,j:longint;
  begin
    readln(m);
    for i:=1 to m do read(a[i]);
    readln(n);
  end;
procedure prep;
  var i,j:longint;
  begin
    for i:=1 to m do f[i,0]:=a[i];
    for i:=1 to trunc(ln(m)/ln(2)) do
      for j:=1 to (m-(1 shl i)+1) do
        f[j,i]:=max(f[j,i-1],f[j+1 shl (i-1),i-1]);
  end;
function ask(l,r:longint):longint;
  var tmp:longint;
  begin
    tmp:=trunc(ln(r-l+1)/ln(2));
    exit(max(f[l,tmp],f[r-(1 shl tmp)+1,tmp]));
  end;
procedure main;
  var l,r:longint;
  begin
    while (n>0) do begin
      readln(l,r);
      writeln(ask(l,r));
      dec(n);
    end;
  end;
begin
  init;
  prep;
  main;
end.