不是VIP会员,不能显示答案

题目解答

题目:
Program test_1003;
Var
N,I,k:integer;
Sum,ans,min:integer;
Begin
Readln(n);sum:=0;min:=0;
Ans:= -32764;
For i:=1 to n do
Begin
Read(k);
Sum:=sum+k;
If sum-min>ans then ans:=sum-min;
If sum<min then min:=sum;
End;
Writeln(ans);
End.
(1)
输入
6
5 -1 0 3 -5 9

(2)
输入
15
5 -1 0 3 -5 9 -10 -7 6 -4 -2 10 -2 -21 18

输出:11|18
考点:
分析:
解答:
评论:
老师: