21 lines
407 B
Text
21 lines
407 B
Text
proc max_subseq &seq[] &start &stop &maxsum .
|
|
maxsum = 0
|
|
i = 1
|
|
start = 1
|
|
stop = 0
|
|
for j to len seq[]
|
|
sum += seq[j]
|
|
if sum < 0
|
|
i = j + 1
|
|
sum = 0
|
|
elif sum > maxsum
|
|
start = i
|
|
stop = j
|
|
maxsum = sum
|
|
.
|
|
.
|
|
.
|
|
a[] = [ -1 -2 3 5 6 -2 -1 4 -4 2 -1 ]
|
|
max_subseq a[] a b sum
|
|
print "Max sum = " & sum
|
|
for i = a to b : write a[i] & " "
|