忠诚（线段树求区间最小值）

题目描述

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

输入输出格式

输入格式：

输入中第一行有两个数m,n表示有m(m<=100000)笔账,n表示有n个问题，n<=100000。

第二行为m个数,分别是账目的钱数

后面n行分别是n个问题,每行有2个数字说明开始结束的账目编号。

输出格式：

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

输入输出

样例

输入样例#1：

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

输出样例#1：

2 3 1

uses math;
var
 i,j,k,n,m,l,ans,r,num:longint;
 a,f:array[0..300000] of longint;
procedure built(l,r,num:longint);
var mid:longint;
begin
 if l=r then
  begin
   f[num]:=a[l];
   exit;
  end;
 mid:=(l+r) shr 1;
 built(l,mid,num shl 1);
 built(mid+1,r,num shl 1+1);
 f[num]:=min(f[num shl 1],f[num shl 1+1]);
end;
procedure find(l,r,x,y,num:longint);
var mid:longint;
begin
 if (l=x) and (r=y) then
  begin
   ans:=min(ans,f[num]);
   exit;
  end;
 mid:=(x+y) shr 1;
 if r<=mid then
  begin
   find(l,r,x,mid,num shl 1);
   exit;
  end;
 if l>mid then
  begin
   find(l,r,mid+1,y,num shl 1+1);
   exit;
  end;
 find(l,mid,x,mid,num shl 1);
 find(mid+1,r,mid+1,y,num shl 1+1);
end;
begin
 readln(n,m);
 for i:=1 to n do read(a[i]);
 //for i:=1 to n do writeln(a[i]);
 fillchar(f,sizeof(f),0);
 built(1,n,1);
 //readln(m);
 for i:=1 to m do
  begin
   ans:=maxlongint;
   readln(l,r);
   find(l,r,1,n,1);
   write(ans,' ');
  end;
end.