19 lines
335 B
Plaintext
19 lines
335 B
Plaintext
seq$ = "-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1"
|
|
max = -999
|
|
for i = 1 to 11
|
|
sum = 0
|
|
for j = i to 11
|
|
sum = sum + val(word$(seq$,j,","))
|
|
If sum > max then
|
|
max = sum
|
|
i1 = i
|
|
j1 = j
|
|
end if
|
|
next j
|
|
next i
|
|
print "Sum:";
|
|
for i = i1 to j1
|
|
print word$(seq$,i,",");",";
|
|
next i
|
|
print " = ";max
|