记录编号 5994 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 Gravatarzxc111 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2008-10-30 08:54:02 内存使用 38.26 MiB
显示代码纯文本
program ooo;
var
b:array[0..10] of longint;
c:array[0..10000000] of longint;
i,j,k,n,m:longint;
t:text;
begin
assign(t,'busses.in');
reset(t);
for i:=1 to 10 do
 read(t,b[i]);
readln(t);
readln(t,m);
close(t);
for i:=1 to m do
c[i]:=maxlongint;
for i:=1 to m do
 for j:=1 to 10 do
  if i-j>=0 then
   if c[i]>c[i-j]+b[j] then
    c[i]:=c[i-j]+b[j];
assign(t,'busses.out');
rewrite(t);
write(t,c[m]);
close(t);
end.