POJ上的重题还真多
Program P2593;
var
n,i,j,m,m2,p:longint;
a,b,c:array[0..100000] of longint;
begin
read(n);
a[0]:=-100001;
while (n>0) do
begin
j:=0;
m:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then inc(j);
if a[i]>a[m] then m:=i;
end;
if j>n-2 then
begin
p:=a[m];
m2:=0;
for i:=1 to n do if (i<>m) and (a[m2]<a[i]) then m2:=i;
inc(p,a[m2]);
writeln(p);
end
else
begin
p:=0;
m:=-100001;
for i:=1 to n do
begin
inc(p,a[i]);
if (p<0) then p:=0;
if m<p then m:=p;
b[i]:=m;
end;
p:=0;
m:=-100001;
for i:=n downto 1 do
begin
inc(p,a[i]);
if (p<0) then p:=0;
if m<p then m:=p;
c[i]:=m;
end;
m:=0;
for i:=1 to n-1 do
if m<b[i]+c[i+1] then m:=b[i]+c[i+1];
writeln(m);
end;
read(n);
end;
end.
分享到:
相关推荐
POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类POJ分类
poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题报告poj 解题...
北大POJ2586-Y2K Accounting Bug 解题报告+AC代码
POJ第1861题源码 POJ第1861题源码 POJ第1861题源码
poj分类poj分类poj分类poj分类
西北工业大学POJ第二季习题,一共15题全部都有,便捷广大西北工业大学大一的孩子。
poj openjudge 1111题最大正向匹配 提交ac
北大POJ1159-Palindrome 解题报告+AC代码
对于POJ1852题目和详细的解答,代码已经通过
poj 3414解题报告poj 3414解题报告poj 3414解题报告poj 3414解题报告
poj 1012解题报告poj 1012解题报告poj 1012解题报告poj 1012解题报告
C语言 poj npu 西工大 C语言Poj答案全完整打包,给有需要的朋友
poj 2329解题报告poj 2329解题报告poj 2329解题报告poj 2329解题报告
poj 1659解题报告poj 1659解题报告poj 1659解题报告poj 1659解题报告
这里我把自己对poj1276的理解和分析还有源代码都放在了里面,希望对大家有所帮助。谢谢
POJ1503解答 POJ1503解答,正确答案(已通过POJ)
POJ各题算法分类和题目推荐 ACM必看 POJ各题算法分类和题目推荐 ACM必看 POJ各题算法分类和题目推荐 ACM必看
POJ1048,加强版的约瑟夫问题 难度中等
北大POJ2002-Squares 解题报告+AC代码
POJ1083的代码,POJ1083的代码,POJ1083的代码