#8 562736924@2011-07-15 06:09:00
21246
回复
删除
答案正确???
[quote][url=/Redirect.asp?Act=Reply&DID=3339&RID=14673]原帖[/url]由 [i]seal4[/i] 于 2010-5-11 22:05:00 发表
比如 4 2 1 1 3 和4 3 1 1 2
的答案都是27~
你看看你的[/quote]
应该是81吧
#10 562736924@2011-07-15 06:15:00
21248
回复
删除
求错!!!
var n,m,i,j,k,la,lb:integer;
z,max:longint;
a:array[0..150]of longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
a[0]:=a[n];
a[n+1]:=a[1];
z:=0;
for m:=n downto 2 do
begin
k:=1001;max:=0;
for i:=1 to m do
if (a[i]<k) then k:=a[i];
for i:=1 to m do
if (a[i]=k)and(a[i-1]*a[i]*a[i+1]>max) then
begin
max:=a[i-1]*a[i]*a[i+1];
la:=i;
end;
z:=z+max;
for i:=la to m do a[i]:=a[i+1];
if la=m then a[0]:=a[m-1];
if la=1 then a[m]:=a[1];
end;
write(z);
end.