测试结果1: 测试结果错误.错误结果为:80

正确结果应为:82

测试结果2: 测试结果正确

测试结果3: 测试结果正确

测试结果4: 测试结果正确

测试结果5: 测试结果错误.错误结果为:29

正确结果应为:38

测试结果6: 测试结果错误.错误结果为:1591

正确结果应为:2106

测试结果7: 测试结果错误.错误结果为:2801

正确结果应为:4419

测试结果8: 测试结果正确

测试结果9: 测试结果正确

测试结果10: 测试结果正确

提交代码： Program P208；

Type

Tn = 1..1000000；

Var

n : Tn；

a : Array[Tn] Of LongInt；

f : Array[Tn] Of Int64；

////////////////////////////////

Procedure Init；

Var

i : Tn；

Begin

Readln(n)；

For i:=1 To n Do

Read(a[i])

End；

////////////////////////////////

Procedure Work；

Var

i : Tn；

Begin

f[1] := a[1]；

For i:=2 To n Do

Begin

f[i] := a[i]；

If f[i - 1] > 0

Then

Inc(f[i], f[i - 1])

End

End；

////////////////////////////////

Procedure Outit；

Var

best : Int64；

i : Tn；

Begin

best := f[1]；

For i:=2 To n Do

If f[i] > best

Then

best := f[i]；

Write(best)

End；

////////////////////////////////

Begin

Init；

Work；

Outit

End.