{* Задача331 *}

REM basic

' Из массива вещественных чисел T(10) выписать в новую таблицу элементы, значения которых меньше 100.
' Найти их среднее арифметическое значение.


CLS
Dim t(10)
For i = 1 To 10
    INPUT t(i)
Next
CLS
PRINT "massiv:"
For i = 1 To 10
    PRINT t(i);
Next
PRINT
PRINT "novay tablica"
For i = 1 To 10
    If t(i) < 100 Then PRINT t(i);: k = k + 1: s = s + t(i)
Next
PRINT
PRINT "sred. znach"; s / k
End