[DP] 公路乘车

var dp:array[0..100]of longint; i,j:longint; x:array[0..10]of longint; n:longint;function min(a,b:longint):longint;begin if a>b then exit(b) else exit(a);end;begin for i:=1 to 10 do  read(x[i]); readln; readln(n); for i:=1 to n do  dp[i]:=50000; for i:=1 to n do  for j:=1 to 10 do   if i-j>=0   then dp[i]:=min(dp[i-j]+x[j],dp[i]); writeln(dp[n]);end.