{* Задача55 *}

REM basic

' Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Составьте программу, которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов. Если таких последовательностей несколько, можно использовать переменные, не описанные ниже, но разрешается не использовать часть из них.


{N=30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim l As Integer
}{Dim lmax As Integer
}{Dim s As Integer
}{Dim smax As Integer
}{For i=1 To N
}{input a(i)
}{Next i
}{...
}{End
}N = 30
Dim a(1 To N) As Integer
Dim i As Integer
Dim l As Integer
Dim lmax As Integer
Dim s As Integer
Dim smax As Integer
For i = 1 To N
INPUT a(i)
Next i
lmax = 0
l = 1
s = a(1)
For i = 2 To N
If a(i) > a(i - 1) Then
l = l + 1
s = s + a(i)
Else
l = 1
s = a(i)
End If
If l > lmax Then
lmax = l
smax = s
End If
Next i
PRINT smax
End