3508855 2008-05-30 18:53:00
点我顶贴
收藏
删除
程序怎么不能编译了???!!~~~
program stone2;
var
ans,n,i,j,k,m:longint;
a:array[0..10001,0..10001] of longint;
f:array[0..20001,0..20001] of longint;
begin
readln(n);
for i:=1 to n do read(a[i,i]);
for i:=1 to n-1 do
for j:=i+1 to n do
a[i,j]:=a[i,j-1]+a[j,j];
ans:=-1;
for i:=1 to n do begin
for k:=0 to n-1 do begin
j:=i+k;
for m:=i to j do
if (f[i,m mod n]+f[m+1,j mod n]+a[i,j mod n]<f[i,j mod n]) or (f[i,j mod n]=0) then
f[i,j mod n]:=f[i,m mod n]+f[m+1,j mod n]+a[i,j mod n];
end;
if (k=n-1) then
if (f[i,j mod n]<ans) or (ans=-1) then
ans:=f[i,j mod n];
end;
writeln(ans);
end.