题目描述
泽泽用了100000000000000000000 mod 10天的时间爬出了长城。长城的另一端是一条隧道,泽泽走了进去……
泽泽不小心又到了英国。英国多雨,基本上隔2天就要下一场雨。泽泽人品不好,到这里的时候天正在下酸雨。
酸雨会腐蚀建筑物,让那些建筑物显得很难看。英国有家工厂免费为一条街道的建筑物的墙面涂油漆。心肠虽好,但是由于技术问题,他们只能涂出一个矩形。现在由于酸雨事态严重,街道办主任下命令涂出面积最大的矩形。
街道上的建筑物高度参差不齐,那该怎么办呢?
他们想到了泽泽。
泽泽接到了这个任务,就去测量了这个街道上的所有建筑物的高度。
请根据泽泽的数据,计算出最大面积。
输入
第1行1个整数n。表示有几幢楼。
之后的一行有n个整数,表示第几幢楼的高度,最高的楼的高度为m。
输出
一个整数,制作防护板的最大面积。
样例输入
20
5 3 7 4 8 9 2 4 5 5 5 4 4 4 8 7 4 4 5 10
样例输出
52
数据范围限制
提示
【样例说明】
最大面积为如图灰色部分所示 :
【限制】
对于30%的数据,n<=100,m<=20
对于100%的数据,n<=100000,m<=50
模拟+滚动数组:
1.a[i]表示到第j个建筑物的时候,连续高度i的面积为多少。
2.如果当前建筑i的高度x比前一个建筑j的高度y低的话,即x< y,就代表x+1到y的高度无法连续了,就判断一下他们的面积找最大。
3。x>y,1到y的高度全部都可以连续,而y+1到x的连续个数就要从1开始了。
4.全部做完以后,最后一个建筑的高度已经无法连续了,而它的a[i]还没有比较,这时把它的高度1~X*他们的连续个数的面积全部做一次比较。
时间复杂度:O(NM)
var
a,b:array [0..51] of longint;
max,i,j,n,x,y:longint;
begin
assign(input,'england.in');
assign(output,'england.out');
reset(input); rewrite(output);
readln(n);
for i:=1 to n do
begin
read(x);
if x<y then
begin
for j:=1 to x do a[j]:=a[j]+j;
for j:=x+1 to y do
begin
if a[j]>max then max:=a[j];
a[j]:=0;
end;
end
else begin
for j:=1 to y do a[j]:=a[j]+j;
for j:=y+1 to x do a[j]:=j;
end;
y:=x;
end;
for i:=1 to x do
if a[i]>max then max:=a[i];
writeln(max);
close(input); close(output);
end.