buses.pas

来自「背包问题专项训练 动态规划算法 有题目的C++解法」· PAS 代码 · 共 24 行

program buses(input, output);

type integer = longint;

var st : array [0..500] of integer;
    v : array [1..10] of integer;
    n, i, j : integer;

begin
  for i := 1 to 10 do
    read(v[i]);
  readln(n);

  fillchar(st, sizeof(st), $7F); st[0] := 0;

  for i := 1 to n do
    for j := i - 1 downto 0 do
      if i - j > 10
        then break
        else if st[j] + v[i - j] < st[i]
               then st[i] := st[j] + v[i - j];

  writeln(st[n])
end.