公路乘车

【题目描述】
一个特别的单行街道在每公里处有一个汽车站。顾客根据他们乘坐汽车的公里使来付费。例如样例的第一行就是一个费用的单子。
没有一辆车子行驶超过10公里，一个顾客打算行驶n公里（1<=n<=100），它可以通过无限次的换车来完成旅程。最后要求费用最少。
【输入格式】
第一行十个整数分别表示行走1到10公里的费用（<=500）。注意这些数并无实际的经济意义，即行驶10公里费用可能比行驶一公里少。
第二行一个整数n表示，旅客的总路程数。
【输出格式】
仅一个整数表示最少费用。
【样例输入】
12 21 31 40 49 58 69 79 90 101
15
【样例输出】
147
【样例说明】
49*3=147
【分析】
一维动规，设f[i]表示行驶i公里的最小费用，则f[i]可以由f[i-1]到f[i-10]取最小值得到。

var
  i,n,j:longint; 
    a:array[1..10]of longint; 
    f:array[0..100]of longint; 
begin 
    for i:=1 to 10 do read(a[i]); 
    read(n); 
    filldword(f,sizeof(f)div 4,maxlongint div 4); //初始化不能忘了
    f[0]:=0; 
    for i:=1 to 10 do 
        for j:=i to n do 
            if f[j]>f[j-i]+a[i] then f[j]:=f[j-i]+a[i]; 
    write(f[n]); 
end.