NKTICK - Xếp hàng mua vé

Tác giả: flashmt

Ngôn ngữ: Pascal

uses math;
var n,i:longint;
    a,b,f:array[0..60000] of longint;

begin
        read(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n-1 do read(b[i]);
        f[1]:=a[1];
        for i:=2 to n do
                f[i]:=min(f[i-1]+a[i],f[i-2]+b[i-1]);
        writeln(f[n]);
end.

Download