记录编号 18362 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 Gravatar苏轼 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2010-09-14 14:10:37 内存使用 0.11 MiB
显示代码纯文本
program busses;

const
  inp:string='busses.in';
  otp:string='busses.out';

var
  p:array[1..10]of integer;
  dym:array[0..1000]of integer;
  n,i,j,min:integer;
  f:text;

begin
  assign(f,inp);
  reset(f);

  for i:=1 to 10 do
    read(f,p[i]);

  readln(f,n);

  close(f);

  for i:=1 to n do
  begin
    min:=dym[i-1]+p[1];

    for j:=2 to 10 do
      if (i-j>=0)and(dym[i-j]+p[j]<min) then
        min:=dym[i-j]+p[j];

    dym[i]:=min;
  end;


  assign(f,otp);
  rewrite(f);

  writeln(f,dym[n]);

  close(f);
end.