比赛 普及组2016模拟练习4 评测结果 AAAAAAA
题目名称 最小乘车费用 最终得分 100
用户昵称 forewing 运行时间 0.015 s
代码语言 Pascal 内存使用 0.14 MiB
提交时间 2016-11-17 18:59:02
显示代码纯文本
program busses;
const
	name='busses';
var
	map:array[0..11]of longint;
	f:array[0..101]of longint;
	i,j,aim:longint;
function min(l,r:longint):longint;
	begin
		if l>r
		then
			exit(r)
		else
			exit(l);
	end;
begin
	assign(input,name+'.in');
	reset(input);
	assign(output,name+'.out');
	rewrite(output);
	for i:=1 to 10 do
		read(map[i]);
	readln(aim);
	for i:=1 to aim do
		f[i]:=maxlongint div 2;
	f[0]:=0;
	for i:=1 to aim do
		for j:=1 to 10 do
			if i-j>=0
			then
				f[i]:=min(f[i-j]+map[j],f[i]);
	writeln(f[aim]);
	close(output);
end.