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.

Download