RQNOJ/PID169 最小乘车费用

题目描述

假设某条街上每一公里就有一个公共汽车站，并且乘车费用如下表：

公里数 1 2 3 4 5 6 7 8 9 10

费用 12 21 31 40 49 58 69 79 90 101

而任意一辆汽车从不行驶超过10公里。某人想行驶n公里，假设他可以任意次换车，请你帮他找到一种乘车方案，使得总费用最小

注意：10公里的费用比1公里小的情况是允许的。

输入格式

共两行，第一行为10个不超过200的整数，依次表示行驶1～10公里的费用，相邻两数间用一个空格隔开；第二行为某人想要行驶的公里数(<=100)。

输出格式

仅一行，包含一个整数，表示行使这么远所需要的最小费用。

样例输入

12 21 31 40 49 58 69 79 90 101
15

样例输出

147

 

var
    a:array[1..110] of longint;
    n,i,j:longint;
begin
    for i:=1 to 10 do read(a[i]);
    for i:=11 to 110 do a[i]:=maxlongint;
    readln(n);
    for i:=2 to n do
        for j:=1 to 10 do
            if (i-j>=1)and(a[i-j]+a[j]<a[i]) then a[i]:=a[i-j]+a[j];
    writeln(a[n]);
end.