csh123456 2013-01-13 21:18:00
点我顶贴
收藏
删除
program project1;
var a:array[1..100]of longint;
n,i,j:longint;
function min(o:longint;p:longint):longint;
begin
if o>p then exit(p)else exit(o);
end;
begin
for i:=1 to 100 do
a[i]:=maxlongint;
for i:=1 to 10 do
read(a[i]);
readln(n);
for i:=11 to n do
for j:=1 to n-1 do
a[i]:=min(a[i],a[i-j]+a[j]);
writeln(a[n]);
readln;
end.