{* Задача50 *}

REM basic

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


N = 30
Dim a(1 To N) As Integer
Dim i As Integer
Dim j As Integer
Dim min As Integer
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 j As Integer
Dim min As Integer
For i = 1 To N
INPUT a(i)
Next i
min = 100
For i = 1 To N
If (a(i) >= 20) And (a(i) < min) Then
min = a(i)
End If
Next i
PRINT min
End