Program rq5;

var n,m,i,j,k,l:longint;

r,c:array[0..101]of longint;

f:array[0..101,0..101]of longint;

function max(a,b:longint):longint;

begin

if a>b then exit(a);

exit(b);

end;

begin

readln(n);

for i:=1 to n do

read(r[i]);

for i:=1 to n do

r[n+i]:=r[i];

for i:=1 to n-1 do

c[i]:=r[i+1];

c[n]:=r[1];

for i:=1 to n do

c[i+n]:=c[i];

for i:=1 to 2*n do

for j:=i+1 to n+i do

for k:=i to j-1 do

f[i,j]:=max(f[i,j],f[i,k]+f[k+1,j]+r[i]*c[k]*c[j]);

for i:=1 to n do

k:=max(k,f[i,n+i-1 ]);

write(k);

end.

顶一下

虽然我不怎么懂。。。。

只要找出错 绝对给100分。。。。

大家帮帮忙啊

这句 f[ij]=min{f[i][k]+f[k+1][j]+a[i]*b[i]*b[i+1]}(i<=k<=j-1)

不是 f[i,j]:=max(f[i,j],f[i,k]+f[k+1,j]+r[i]*c[k]*c[j]);

看来的 我自己其实一点不懂

LZ貌似已经通过了。

不会吧？我们改了很久啊，都不过

我不懂哎----------------

o

不明

哥老早知道了

把分给我

我就告诉你

分啊分啊！！

这句 f[ij]=min{f[i][k]+f[k+1][j]+a[i]*b[i]*b[i+1]}(i<=k<=j-1)

不是 f[i,j]:=max(f[i,j],f[i,k]+f[k+1,j]+r[i]*c[k]*c[j]);

确实是这样，不骗你！

你要给我分

不然我告你......

不懂.....

懂不！.....