记录编号 6046 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 GravatarAchilles 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2008-10-30 12:52:52 内存使用 3.92 MiB
显示代码纯文本
program busses;
var
  sz:array[1..10]of longint;
  hx:array[0..1000000]of longint;
  i,j,n:longint;
begin
  assign(input,'busses.in');
  assign(output,'busses.out');
  reset(input);
  rewrite(output);
  for i:=1 to 10 do
    read(sz[i]);
  readln(n);
  for i:=1 to n do
    hx[i]:=2147483647;
  hx[0]:=0;
  for i:=0 to n do
    for j:=1 to 10 do
      if hx[i]+sz[j]<hx[i+j] then hx[i+j]:=hx[i]+sz[j];
  writeln(hx[n]);
  close(input);
  close(output);
end.