{* Задача53 *}

REM basic

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


{Const n = 30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim k As Integer
}{Dim max As Integer
}{Dim max2 As Integer
}{REM For i = 1 To n
}{INPUT a(i)
}{Next i
}{...
}{End
}n = 30
Dim a(1 To n) As Integer
Dim i As Integer, k As Integer, max As Integer, max2 As Integer
For i = 1 To n
INPUT a(i)
Next i
If a(1) > a(2) Then
max = a(1)
max2 = a(2)
Else
max = a(2)
max2 = a(1)
End If
For i = 3 To n
If a(i) > max Then
max2 = max
max = a(i)
ElseIf a(i) > max2 Then
max2 = a(i)
End If
Next i
PRINT max2
End