记录编号	6058	评测结果	AAAAAAA
题目名称	最小乘车费用	最终得分	100
用户昵称	lc	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2008-10-30 13:04:02	内存使用	0.11 MiB

program ex1029_2;
 var
      len:array[1..10] of longint;
      s,tm,i,x:longint;
      f:array[0..10] of longint;

begin
 assign(input,'busses.in');
 assign(output,'busses.out');
 reset(input); rewrite(output);
 for i:=1 to 10 do
 read(len[i]);
 readln(s);
 for i:=1 to 10 do f[i]:=maxlongint;
 for i:=1 to s do
  begin
  tm:=maxlongint;
  for x:=1 to 10 do
     begin
     if x>i then break;
      if f[(i-x+11) mod 11]+len[x]<tm
       then tm:=f[(i-x+11) mod 11]+len[x];
     end;
  f[i mod 11]:=tm
  end;
 writeln(f[s mod 11]);
 close(input); close(output);
end.