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.