单调队列典型例题——广告印刷



【问题描述】
最近，afy决定给TOJ印刷广告，广告牌是刷在城市的建筑物上的，城市里有紧靠着的N个建筑。afy决定在上面找一块尽可能大的矩形放置广告牌。我们假设每个建筑物都有一个高度，从左到右给出每个建筑物的高度H1,H2…HN，且0 【输入文件】
中的第一行是一个数n (n<= 400,000 ）
第二行是n个数，分别表示每个建筑物高度H1,H2…HN，且0 【输出文件】
输出文件 ad.out 中一共有一行，表示广告牌的最大面积。
【输入样例】
6
5 8 4 4 8 4
【输出样例】
24

var
  h,left,right,p,q:array[0..400000] of longint;
  i,n,start,over,max:longint;
begin
  readln(n);
  for i:=1 to n do read(h[i]);
  start:=1;
  for i:=1 to n do begin
    while (over>=start) and (h[i]<=h[p[over]]) do dec(over);
 inc(over);
 p[over]:=i;
 left[i]:=p[over]-p[over-1];
  end;
  start:=0;over:=0;
  for i:=n downto 1 do begin
    while (over>=start) and (h[i]<=h[q[over]]) do dec(over);
 inc(over);
 q[over]:=i;
 if i=n then right[i]:=1 else right[i]:=q[over-1]-q[over];
  end;
  max:=-maxlongint+1;
  for i:=1 to n do
    if (right[i]+left[i]-1)*h[i]>max then max:=(right[i]+left[i]-1)*h[i];
  writeln(max);
  readln;
end.