pascal最大矩形面积

最大矩形面积

时限：1s 内存：32M

★问题描述:

在x轴上水平放置着N个条形图，这N个条形图就组成了一个柱状图，每个条形图都是一个矩形，每个矩形都有相同的宽度，但是它们的高度并不相同。

比如，图1包含的矩形的高分别为2，1，4，5，1，3，3单位长度，矩形的宽为1单位长度。

你的任务就是计算柱状图中以x轴为底边的最大矩形的面积。图2阴影部分就是上述例子的最大矩形面积。
★数据输入：

输入数据的第一行是一个整数N(1≤N≤100,000)，表示柱状图包含N个矩形。紧接着N个整数h1,...,hn(0≤ hi ≤20,000, 1≤ i≤ N)，表示柱状图中按从左到右顺序给出的矩形的高度。矩形的宽度为1。

★结果输出:

输出一行一个整数S，表示以x轴为底边的最大矩形的面积。

输入示例 7 2 1 4 5 1 3 3
输出示例 8

输入示例 4 1000 1000 1000 1000
输出示例 4000
我的程序如下但只达到60%的测试数据正确率 其他都是得数错 请高手解答下为什么出错
program shy;
var a,min:array[1..10000] of integer;
i,n:integer;
x:integer;
max,num:integer;
procedure digui(x:integer);
begin
min[x]:=a[x];
for i:=x+1 to n do
if min[i-1]<=a[i] then min[i]:=min[i-1]
else min[i]:=a[i];
for i:=x+1 to n do
if min[i]*(i-x+1) > max then max:= min[i]*(i-x+1);
if x<n then digui(

求内接矩形的面积最大？ 求内接矩形的最大面积 矩形面积 证明同周长的矩形中正方形面积最大 求证:在周长一定的矩形中正方形面积最大. 急需有关扇形内最大面积矩形的论文 Rt三角形内接一个面积最大的矩形,这个矩形一定是?为什么?简答. 怎么证明三角形内最大矩形的面积是三角形面积的一半 周长为13厘米的矩形铁板上剪去一个等边三角形(三角形的一边是矩形宽)则矩形宽为?剩下面积最大,最大是? 求矩形的面积