题目描述
一天,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
题解
考试时被复杂的题目描述吓到了!所以一直没想怎么做,而是不停想怎么水分!
深搜?应该能拿十分吧!(当时已经很满足了)
后来也想过DP,可是一直是想如何一个数组求出答案,所以当然没想出来。
到考试最后二十分钟,我上了个厕所回来终于想到了,可以一个数组求往左下降,一个数组求往右下降。ans=max(所有的f1+f2-1);
var
f1,f2,a:array[0..10001]of longint;
i,j,n,max:longint;
begin
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if a[i]>=a[i-1] then f1[i]:=f1[i-1]+1 else f1[i]:=1;
for i:=n downto 1 do
if a[i]>=a[i+1] then f2[i]:=f2[i+1]+1 else f2[i]:=1;
max:=-maxlongint;
for i:=1 to n do
if f1[i]+f2[i]-1>max then max:=f1[i]+f2[i]-1;
writeln(max);
end.
打完后发现只有400多Byte,感觉几千B的深搜白打了……
算了,就当做练打字吧。