比赛 noip-081029 评测结果 AWAAAAA
题目名称 最小乘车费用 最终得分 85
用户昵称 王瑞祥K 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-10-29 20:23:45
显示代码纯文本
program busses(input,output);
var
 v:array[1..10]of longint;
 f:array[-10..10000]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(v[i]);
 readln;
 read(n);
 for i:=1 to 10000 do f[i]:=10000;
 if n=0 then write(0)
 else begin
  for i:=1 to 10 do
   for j:=0 to n do
    if f[j]>f[j-i]+v[i] then f[j]:=f[j-i]+v[i]
    else f[j]:=f[j];
  write(f[n]);
 end;
 close(input);close(output);
end.