массив (Qbasic)

[Вадим-ДВ]

массив Р(15) заполнить целыми случайными числами в диапазоне (1-100). построить массив К(2) из таких элементов Р, которые меньше среднего арифметического С всех элементов массива Р. Массив К заполнить плотно. Вывести Р,К,С.

[Вадим-ДВ]

попытался собрать немного, вот что получилось:

CLS
n = 15
DIM m(n)

PRINT "massiv"
FOR i = 1 TO n
m(i) = INT(RND * 100)
PRINT m(i);
NEXT i
FOR i = 1 TO n - 100
FOR j = i + 1 TO n
IF (m(i) > m(j)) THEN SWAP m(i), m(i)
NEXT j
NEXT i

PRINT
PRINT "massiv informatika"
FOR i = 1 TO n

n=15
summ = 0
FOR i = 0 TO n
M(i) = int(rnd * 100)
print i; "_"; m(i)
summ = summ + m(i)
NEXT i
PRINT "___"
PRINT "srednee arif"; summ / n
END

нашёл среднее арифметическое, незнаю как составить 3 массив (построить массив К(2) из таких элементов Р, которые меньше среднего арифметического С всех элементов массива Р. Массив К заполнить плотно. Вывести Р,К,С.)