最小乘车费用
Description 假设某条街上每一公里就有一个公共汽车站，并且乘车费用如下表： 而任意一辆汽车从不行驶超过10公里。某人想行驶n公里，假设他可以任意次换车，请你帮他找到一种乘车方案，使得总费用最小 注意：10公里的费用比1公里小的情况是允许的。
Input 输入文件BUSSES.IN，文件共两行，第一行为10个不超过200的整数，依次表示行驶1～10公里的费用，相邻两数间用一个空格隔开；第二行为某人想要行驶的公里数。
Output 输出文件BUSSES.OUT，仅一行，包含一个整数，表示行使这么远所需要的最小费用。
Sample Input 12 21 31 40 49 58 69 79 90 101 15
Sample Output 147
说明 f[i]:=maxlongint;是把数设到最大 if (i>=j)and(f[i-j]+a[j]< f[i]) then f[i]:=f[i-j]+a[j]; 是判断a[j]+f[i-j]是否大于f[i],大于就换
var n,i,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); for i:=1 to n do begin f[i]:=maxlongint; for j:=1 to 10 do if (i>=j)and(f[i-j]+a[j]<f[i]) then f[i]:=f[i-j]+a[j]; end; writeln(f[n]); end.