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.

Download