NKCABLE - Nối mạng
Tác giả: ladpro98
Ngôn ngữ: Pascal
program nkcable;
uses math;
const maxN = 25555;
fi='';
var a,f:array[1..maxN] of longint;
n:longint;
procedure input;
var inp:text;
i:longint;
begin
assign(inp,fi);
reset(inp);
readln(inp,n);
for i:=1 to n-1 do
readln(inp,a[i]);
close(inp);
end;
procedure init;
begin
f[1]:=a[1];
f[2]:=a[1]+a[2];
end;
procedure dp;
var i:longint;
begin
for i:=3 to n-1 do
f[i]:=min(f[i-1],f[i-2])+a[i];
end;
begin
input;
init;
dp;
write(f[n-1]);
end.