{* Задача43 *}

REM basic

' Составить программу поиска
' трех последовательных элементов, сумма которых максимальна, в числовом массиве
' из 30 элементов.


N = 30
Dim a(1 To N) As Integer
Dim Max As Integer, Sum As Integer, i As Integer, k As Integer
For i = 1 To N
INPUT a(i)
Next i
Sum = a(1) + a(2) + a(3)
Max = Sum
k = 1
For i = 2 To N - 2
Sum = Sum - a(i - 1) + a(i + 2){ или Sum=a(i)+a(i+1)+a(i+2)
}If Sum > Max Then
Max = Sum
k = i
End If
Next i
For i = k To k + 2
PRINT "A["; i; "]="; a(i)
Next i
End