比赛 noip-081029 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 苏轼 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-10-29 21:02:24
显示代码纯文本
program cch(input,output);
const
 maxf=10000;
var
 i,j,n:longint;
 a:array[1..10] of integer;
 f:array[0..maxf] of longint;
begin
 assign(input,'busses.in');
 assign(output,'busses.out');
 reset(input);
 rewrite(output);
 for i:=1 to 10 do read(a[i]);
 read(n);
 for i:=1 to maxf do f[i]:=maxlongint;
 f[0]:=0;
 for i:=1 to 10 do
  for j:=i to n do
   if f[j]>f[j-i]+a[i] then f[j]:=f[j-i]+a[i];
 write(f[n]);
 close(input);
 close(output);
end.