比赛 noip-081029 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 francis 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2008-10-29 21:10:52
显示代码纯文本
program busses;
const
fin='busses.in';
fou='busses.out';
var
f:array[0..1000000]of longint;
a:array[1..10]of longint;
i,j,n:longint;
f1,f2:text;

begin
assign(f1,fin);
assign(f2,fou);
reset(f1);
rewrite(f2);
for i:=1 to 10 do
read(f1,a[i]);
read(f1,n);
for i:=1 to n do
f[i]:=200000000;

for i:=1 to n do
for j:=1 to 10 do
if i-j>=0 then
 if f[i]>f[i-j]+a[j] then f[i]:=f[i-j]+a[j];
write(f2,f[n]);
close(f1); close(f2);
end.