【克罗地亚】NIKOLA

最新推荐文章于 2018-08-22 21:27:00 发布

勒布朗-詹姆斯-T-Z-X

最新推荐文章于 2018-08-22 21:27:00 发布

阅读量554

点赞数 1

CC 4.0 BY-SA版权

分类专栏：题解

本文链接：https://blog.youkuaiyun.com/tangzixuan121/article/details/51540575

题解专栏收录该内容

31 篇文章

订阅专栏

正解：DSF+DP=100分（只DP也可以）

var n,i,j,l,ans,tot:longint;
a:array[0..1000] of longint;
f:array[0..1000,0..1000] of longint;
function min(x,y:longint):longint;
begin
        if x<y then
        begin
                if x<y then
                begin
                        if x<y then
                        exit(x);
                end;
        end
        else
        exit(y);
end;
procedure fuzhi();
var i,j:longint;
begin
        for i:=0 to 1000 do
        begin
                for j:=0 to 1000 do
                begin
                        f[i,j]:=maxlongint div 3;
                end;
        end;
end;
procedure pd();
begin
        if i+j<=n then f[j,i]:=min(f[j,i],f[j,i+j]+a[i]);
        if i-j>0 then f[j,i]:=min(f[j,i],f[j-1,i-j]+a[i]);
end;
begin


	readln(n);
	for i:=1 to n do readln(a[i]);
        fuzhi();
        f[0,1]:=0;
        ans:=maxlongint;
        for j:=1 to n do
        begin
                for i:=n downto 1 do
                begin
                        pd();
                end;
                ans:=min(ans,f[j,n]);
        end;
        writeln(ans); 

	
end.