{* Задача229 *}

REM basic

' Написать программу, которая запросит рост всех студентов группы (20 чел.)
' по очереди и рассчитает среднее значение. Результат округлить до целой
' величины.


CLS
Dim x(20)


For i = 1 To 20
        PRINT "Введите возраст"; i; "-го студента"; : INPUT x(i)
Next i


s = 0
For i = 1 To 20
        s = s + x(i)
Next i
PRINT "Средний возраст cтудентов равен"; CInt(s / 20); "лет"

End