标签：
题目描述Description
小浣熊松松特别喜欢交朋友，今年松松生日，就有N个朋友给他送礼物。可是要把这些礼物搬回家是一件很困难的事，具体来说，如果松松一次搬运x件礼物，就要花费w[x]的体力（显而易见，有w[x]<=w[x+1]，搬得越多耗费体力越多）。松松并不在意他会搬多少次，但是他想知道，自己最少花费多少体力，就可以把礼物全部搬回家。
第一行包含一个整数N，代表有N个朋友给松松送礼物。
接下来N行，第i行表示一次搬运i件礼物花费的体力w[i]。
输出仅一行，为松松搬运这N件礼物最少耗费的体力。
3
1
4
7
3
数据范围及提示Data Size & Hint
var n:longint;
init:array[1..5000]of longint;
f:array[0..5000]of longint;
i,j,k:longint;
max:longint;
begin readln(n);
for i:=1 to n do
readln(init[i]);
fillchar(f,sizeof(f),$7F);
f[0]:=0;
for i:=1 to n do
for k:=1 to i do
if f[i]>f[i-k]+init[k]
then f[i]:=f[i-k]+init[k];
writeln(f[n]);
end.
标签：
原文地址：http://www.cnblogs.com/spiderKK/p/4314358.html
