记录编号	7741	评测结果	AAAAAAA
题目名称	最小乘车费用	最终得分	100
用户昵称	chengyang	是否通过	通过
代码语言	Pascal	运行时间	0.017 s
提交时间	2008-11-11 15:20:08	内存使用	0.11 MiB

program busses;   
var  
  a:array[1..10]of longint;   
  m,min,min2:longint;   
procedure ini;   
var  
  i:integer;   
Begin   
  assign(input,'busses.in');   
  assign(output,'busses.out');   
  reset(input); rewrite(output);   
  for i:=1 to 10 do read(a[i]);   
  readln(m);   
End;   
procedure ouo;   
Begin   
  writeln(min);   
  close(input); close(output);   
End;   
procedure goo(xx,zz:integer);   
var  
  ii,jj:integer;   
Begin   
  if xx<m then for ii:=1 to 10 do begin  
      if xx+ii<=m then goo(xx+ii,zz+a[ii]);   
  end;   
  if xx=m then if min2>zz then min2:=zz;   
End;   
procedure go;   
var  
  i,j,p,l:integer;   
  k:real;   
Begin   
  k:=1/a[1]; p:=1;   
  for i:=2 to 10 do  
    if (i/a[i])>k then begin  
    k:=i/a[i]; p:=i;   
  end;   
  l:=((m-10) div p);   
  min:=l*a[p];   
  m:=m-l*p;   
  min2:=99999;   
  goo(0,0);   
  min:=min+min2   
End;   
Begin   
  ini;   
  go;   
  ouo;   
 End.