NKTICK - Xếp hàng mua vé
Tác giả: RR
Ngôn ngữ: Pascal
uses math;
var
i,n:longint;
r,t,f:array[1..60111] of longint;
begin
read(n);
for i:=1 to n do read(t[i]);
for i:=1 to n-1 do read(r[i]);
f[n]:=t[n];
for i:=n-1 downto 1 do
f[i]:=min(t[i]+f[i+1],r[i]+f[i+2]);
writeln(f[1]);
end.