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.