NKCABLE - Nối mạng

Tác giả: RR

Ngôn ngữ: Pascal

uses math;
var
  n,i:longint;
  a,f:array[1..50000] of longint;
begin
  read(n);
  for i:=2 to n do
    read(a[i]);
  f[2]:=a[2];
  f[3]:=a[2]+a[3];
  for i:=4 to n do
      f[i]:=min(f[i-1]+a[i],f[i-2]+a[i]);
  writeln(f[n]);
end.

Download