记录编号 13194 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 Gravatarzqzas 是否通过 通过
代码语言 Pascal 运行时间 0.026 s
提交时间 2009-09-29 19:37:15 内存使用 0.12 MiB
显示代码纯文本
var
  n,i,j:longint;
  a,f:array[0..1000]of longint;

begin
assign(input,'busses.in'); reset(input);
assign(output,'busses.out'); rewrite(output);
  for i:=1 to 10 do read(a[i]);
  readln(n);
  for i:=1 to n do f[i]:=maxlongint;
  f[0]:=0;
  for i:=1 to n do
   for j:=1 to 10 do
  begin
    if i<j then break;
    if f[i-j]+a[j]<f[i] then f[i]:=f[i-j]+a[j]
  end;
  writeln(f[n]);
close(input);
close(output)
end.