{* Задача61 *}

REM basic

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


N = 30
Dim A(1 To N) As Integer
Dim i As Integer, k As Integer, kMax As Integer
For i = 1 To N
INPUT A(i)
Next i
k = 0
kMax = 0
For i = 1 To N
If A(i) < 0 Then
k = k + 1
Else
k = 0
End If
If k > kMax Then
kMax = k
End If
Next i
PRINT kMax
End