{* Задача48 *}

REM basic

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


N = 30
Dim A(1 To N) As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim s As Single
For i = 1 To N
INPUT A(i)
Next i
...
End
{Решение
}N = 30
Dim A(1 To N) As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim s As Single
For i = 1 To N
INPUT A(i)
Next i
x = 200
For i = 1 To N
If (A(i) >= 180) And (A(i) < x) Then
x = A(i)
End If
Next i
PRINT "Рост "; x
End