[Tyvj 1038] 忠诚

忠诚

描述

老管家是一个聪明能干的人。他为财主工作了整整10年,财主为了让自已账目更加清楚。要求管家每天记k次账,由于管家聪明能干,因而管家总是让财主十分满意。但是由于一些人的挑拨,财主还是对管家产生了怀疑。于是他决定用一种特别的方法来判断管家的忠诚,他把每次的账目按1,2,3…编号,然后不定时的问管家问题,问题是这样的:在a到b号账中最少的一笔是多少?为了让管家没时间作假他总是一次问多个问题。

输入格式

输入中第一行有两个数m,n表示有m(m<=100000)笔账,n表示有n个问题,n<=100000。
第二行为m个数,分别是账目的钱数
后面n行分别是n个问题,每行有2个数字说明开始结束的账目编号。

输出格式

输出文件中为每个问题的答案。具体查看样例。

输入

10 3
1 2 3 4 5 6 7 8 9 10
2 7
3 9
1 10

输出

2 3 1

var
 minn:array[1..100000,0..20]of longint;
 i,j:longint;
 n,m,k,a,b,ans:longint;
function min(a,b:longint):longint;
begin
 if a>b
 then exit(b)
 else exit(a);
end;

begin
 readln(n,m);
 for i:=1 to n do
  read(minn[i,0]);
 for j:=1 to trunc(ln(n)/ln(2)) do
  for i:=1 to n+1-(1 shl j) do
   minn[i,j]:=min(minn[i,j-1],minn[i+(1 shl(j-1)),j-1]);
 for i:=1 to m do
  begin
   readln(a,b);
   k:=trunc(ln(b-a+1)/ln(2));
   ans:=min(minn[a,k],minn[b-(1 shl k)+1,k]);
   write(ans,' ');
  end;
end.

你可能感兴趣的:(数据结构—ST表)