{* Задача52 *}

REM basic

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


{Const N=30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim j 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, j As Integer, s As Single
For i = 1 To N
INPUT a(i)
Next i
s = 0
For i = 1 To N
s = s + a(i)
Next i
j = 0
For i = 1 To N
If a(i) * N > s Then
j = j + 1
End If
Next i
PRINT j
End