{* Задача41 *}

REM basic

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


N = 30
Dim A(1 To N) As Integer
Dim i As Integer, i1 As Integer, Sum As Integer
For i = 1 To N
INPUT A(i)
Next i
i1 = 1
Sum = A(1) + A(2)
For i = 2 To N - 1
If A(i) + A(i + 1) > Sum Then
i1 = i
Sum = A(i) + A(i + 1)
End If
Next i
PRINT i1
End