又上锁妖塔

Description

小D在X星买完了想要的东西,在飞往下一个目的地的途中,正无聊的他转头看了看身边的小A,发现小A正在玩<仙剑>,可是小A很奇怪,他一直在锁妖塔的周围转来转去,可是就是不进去,于是小D问他:”你在干什么?怎么不上去?”小A说:”我在想怎么从锁妖塔外面爬上去”(倒…) 锁妖塔的建造很特别,塔总共有n层,但是高度却不相同,这造成了小A爬过每层的时间也不同.小A会用仙术,每用一次可以让他向上跳一层或两层,但是每次跳跃后小A都将用完灵力,必须爬过至少一层才能再次跳跃(你可以认为小A需要跳两次一层才休息),小A想用最短的时间爬到塔顶,可是他不能找到时间最短的方案,所以请你帮他找到一个时间最短的方案让他爬到塔顶,小A只关心时间,所以你只要告诉他最短时间是多少就可以了.你可以最后跳到塔外即超过塔高.

Input

第一行一个数n (n<=10000),表示塔的层数.
接下来的n行每行一个数(<=100),表示从下往上每层的高度.

Output

一个数,表示最短时间

Sample Input

5
3
5
1
8
4
Sample Output

1
Hint

[数据规模]
对20%的数据,n<=10
对40%的数据,n<=100
对60%的数据,n<=5000
对100%的数据,n<=10000

题解：

显而易见，这是个dp
f[i,2]:=min(f[i-1,1],f[i-1,2])+a[i];（不跳）
f[i,1]:=min(f[i-1,2],f[i-2,2]);（跳）

代码：

var
  n,i,j:longint;
  a:array[0..20000] of longint;
  f:array[0..20000,1..2] of longint;
function min(x,y:longint):longint;
begin
  if x>y then exit(y);
  exit(x);
end;
begin
  readln(n);
  for i:=1 to n do readln(a[i]);
  f[1,2]:=a[1];
  f[2,2]:=min(f[1,1],f[1,2])+a[2];
  for i:=3 to n+1 do
    begin
      f[i,2]:=min(f[i-1,1],f[i-1,2])+a[i];
      f[i,1]:=min(f[i-1,2],f[i-2,2]);
    end;
  writeln(min(min(f[n,1],f[n,2]),min(f[n+1,1],f[n+1,2])));
end.