{* Задача47 *}

REM basic

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


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 = 0
y = 0
For i = 1 To N
If A(i) > 20 Then
x = x + 1
y = y + A(i)
End If
Next i
s = y / x
PRINT "Средний балл "; Using "######.###"; s
End