题目描述
一天，Bessie在眺望美丽的威斯康星的群山的时候，她突然产生了疑问：哪座山是最宽的捏？她决定在地平线上，利用她的新发明的山峰高度测量仪依次做N (1 <= N <= 10,000)次高度测量H_i (1 <= H_i <= 1,000,000,000)。一座山定义为一段连续的高度序列，序列中的高度一开始单调上升（或者不变），然后单调下降（或者不变）。举例来说，2, 3, 3, 5, 4, 4, 1这一段高度序列就是一座山。如果在她的视线范围内有一段只单调上升或者只单调下降的序列，也算是一座山。山的宽度定义为在这个山上进行的测量的次数（也就是序列的长度）。请帮Bessie找到最宽的山。
输入
第1行: 一个单独的整数: N
第2到第N+1行: 第i+1包含一个单独的整数: H_i
输出
一个单独的整数，表示最宽的山的宽度。
样例输入
7
3
2
3
5
4
1
6
样例输出
5
分析
设d[i]表示第i个点以前的最长上升序列的长度
设e[i]表示第i个点以后的最长下降序列的长度
答案输出max（d[i]+e[i]-1）
程序：
var
n,max:int64;
i:longint;
a,e,d:array[0..10001]of int64;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
d[0]:=0;
for i:=1 to n do
if a[i]>=a[i-1] then d[i]:=d[i-1]+1 else d[i]:=1;
for i:=n downto 1 do
if a[i]>=a[i+1] then e[i]:=e[i+1]+1 else e[i]:=1;
max:=0;
for i:=1 to n do
if d[i]+e[i]-1>max then max:=d[i]+e[i]-1;
write(max);
end.