TYVJ P1015公路乘车

描述 Description
	一个特别的单行街道在每公里处有一个汽车站。顾客根据他们乘坐汽车的公里使来付费。例如下表就是一个费用的单子。 没有一辆车子行驶超过10公里，一个顾客打算行驶n公里（1<=n<=100），它可以通过无限次的换车来完成旅程。最后要求费用最少。

	输入格式 Input Format
		第一行十个整数分别表示行走1到10公里的费用（<=500）。注意这些数并无实际的经济意义，即行驶10公里费用可能比行驶一公里少。 　　第二行一个整数n表示，旅客的总路程数。

	输出格式 Output Format
		仅一个整数表示最少费用。

	样例输入 Sample Input
		12 21 31 40 49 58 69 79 90 10115

	样例输出 Sample Output
		147

	时间限制 Time Limitation
		各个测试点1s

 

分析：背包类的问题，而且是完全背包类的问题……

program p1015;
 var f:array[0..10000]of longint;
     a:array[1..10]of longint;
     n:longint;

 procedure init;
  var i:longint;
  begin
   assign(input,'input.txt');
   reset(input);
   assign(output,'output.txt');
   rewrite(output);
   for i:=1 to 10 do
    read(a[i]);
   readln(n);
   close(input);
  end;

 procedure pack;
  var i,j,l:longint;
  begin
   for i:=1 to n do
    f[i]:=100000;
   for i:=1 to 10 do
    for j:=1 to n do
     if (j-i>=0)and(f[j]>f[j-i]+a[i]) then
      f[j]:=f[j-i]+a[i];
   writeln(f[n]);
  end;

 begin
  init;
  pack;
  close(output);
 end.