{* Задача62 *}

REM basic

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


{n=30
}{Dim a(1..n) As Integer
}{Dim i As Integer
}{Dim j As Integer
}{Dim max As Integer
}{For i=l To N
}{input a(i)
}{Next i
}{...
}{End
}n = 30
Dim a(1 To n) As Integer
Dim i As Integer
Dim j As Integer
Dim max As Integer
For i = 1 To n
INPUT a(i)
Next i
max = -100
For i = 1 To n
If (a(i) < 0) And (a(i) > max) Then
max = a(i)
End If
Next i
PRINT max
End