记录编号 6008 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 Gravatarname:弓虽 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2008-10-30 09:33:25 内存使用 0.11 MiB
显示代码纯文本
program busses(input,output);
 var
  i,j,k:longint;
  a:array [1..10] of longint;
  f:array [0..501] of longint;
  n:longint;
  ans:int64;
begin
 assign(input,'busses.in');
 assign(output,'busses.out');
  reset(input);
  rewrite(output);
   for i:=1 to 10 do
    read(a[i]);
  readln(n);

 for i:=1 to 500 do f[i]:=2140000000;
 f[0]:=0; ans:=0;
  for i:= 1 to n
   do
    for j:= 1 to 10 do begin
    if i-j<0 then break;
     if (f[i-j]+a[j])<f[i] then f[i]:=f[i-j]+a[j];
    end;
   ans:=f[n];
   writeln(ans);
   close(input);
   close(output);
 end.