NKTICK - Xếp hàng mua vé

Tác giả: ladpro98

Ngôn ngữ: Pascal

program nktick;
uses    math;
var     t,r,f:array[1..66666] of longint;
        n:longint;
procedure input;
var     p:text;
        i:longint;
begin
        assign(p,'');
        reset(p);
        readln(p,n);
        for i:=1 to n do read(p,t[i]);
        for i:=1 to n-1 do read(p,r[i]);
        r[n]:=t[n];
        close(p);
end;

procedure dp;
var     i:longint;
begin
        f[n+1]:=0;
        f[n+2]:=0;
        for i:=n downto 1 do
        f[i]:=min(t[i]+f[i+1],r[i]+f[i+2]);
end;

begin
        input;
        dp;
        write(f[1]);
end.

Download