比赛 20090923练习赛 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 Achilles 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2009-09-23 19:32:24
显示代码纯文本
program busses;
var
  sz:array[1..10]of longint;
  r:array[0..100000]of longint;
  l,i,j:longint;
begin
  assign(input,'busses.in');
  assign(output,'busses.out');
  reset(input);
  rewrite(output);
  for i:=1 to 10 do
    read(sz[i]);
  readln;
  readln(l);
  for i:=1 to l do
    r[i]:=2147483646;
  r[0]:=0;
  for i:=0 to l do
  begin
    for j:=1 to 10 do
      if i+j>l then break else
        if r[i]+sz[j]<r[i+j] then r[i+j]:=r[i]+sz[j];
  end;
  writeln(r[l]);
  close(input);
  close(output);
end.