SSL 1579——泽泽在英国
Description
泽泽用了100000000000000000000 mod 10天的时间爬出了长城。长城的另一端是一条隧道,泽泽走了进去……
泽泽不小心又到了英国。英国多雨,基本上隔2天就要下一场雨。泽泽人品不好,到这里的时候天正在下酸雨。
酸雨会腐蚀建筑物,让那些建筑物显得很难看。英国有家工厂免费为一条街道的建筑物的墙面涂油漆。心肠虽好,但是由于技术问题,他们只能涂出一个矩形。现在由于酸雨事态严重,街道办主任下命令涂出面积最大的矩形。
街道上的建筑物高度参差不齐,那该怎么办呢?
他们想到了泽泽。
泽泽接到了这个任务,就去测量了这个街道上的所有建筑物的高度。
请根据泽泽的数据,计算出最大面积。
Input
第1行1个整数n。表示有几幢楼。
之后的一行有n个整数,表示第几幢楼的高度,最高的楼的高度为m。
Output
一个整数,制作防护板的最大面积。
Sample Input
20
5 3 7 4 8 9 2 4 5 5 5 4 4 4 8 7 4 4 5 10
Sample Output
52
题目提示
最大面积为如图灰色部分所示 :
Hint
对于30%的数据,n<=100,m<=20
对于100%的数据,n<=100000,m<=50
我们可以用m找到最高的高度
然后,两个循环。
1<=i<=m
1<=j<=n
然后我们搜a[j]是否大于等于i,是则s:=s+1;否则为0
最后判断s*i>x,更新最大值。
代码如下:
var a:array[1..100000]of longint;
n,i,j,x,s,m:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]>m then m:=a[i];
end;
for i:=1 to m do
begin
s:=0;
for j:=1 to n do
begin
if a[j]>=i then s:=s+1 else s:=0;
if s*i>x then x:=s*i;
end;
end;
write(x);
end.