排队买票

题意

一个演唱会即将举行，现有 N 个歌迷排队买票，一个人一张，而售票处规定，一个人每次最多买两张，假设买一张票的时间为 Ti （ 1<=i<=N ） , 队伍中相邻的歌迷（第 j 个人和第 j+1 个人）也可以由其中的一个人买两张票的时间为 Ri, 假如 Rj < Ti+Tj+1, 这样做可以缩短后面的歌迷等待的时间，现给出 N ， Ti,Rj, 求每个人买到票的最短时间和方法。 

分析

f[i]:=min(t[i]+f[i-1],f[i-2]+r[i-1]);

var
n,i,tj:longint;
t,r,f:array[0..10000]of longint;
begin
    readln(n);
    for i:=1 to n do
    read(t[i]);
    readln;
    for i:=1 to n-1 do
    read(r[i]);
    f[1]:=t[1];
    for i:=2 to n do
    if (t[i]+f[i-1])<(f[i-2]+r[i-1]) then f[i]:=f[i-1]+t[i] else f[i]:=f[i-2]+r[i-1];
    write(f[n]);
end.