Переписать все элементы Х для 3 < Xi < 10 в начало Y, подсчитать их количество и среднее арифметическое. В примере таких чисел 3. Среднее 18/3 = 6. - QBasic(Бейсик)

Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа. Размер массивов – N. Программа должна предъявлять исходные и новые (если требуется) массивы.

X 1 4 2 8 6 11
Y 4 8 6

INPUT "vvedite kol-vo chisel ", n
DIM x(n), y(n)
RANDOMIZE TIME
FOR i = 1 TO n
    x(i) = INT(RND * 10)
NEXT
PRINT "massiv x"
FOR i = 1 TO n
    PRINT x(i);
NEXT
PRINT
FOR i = 1 TO n
    IF (x(i) > 3) AND (x(i) < 10) THEN k = k + 1: y(k) = x(i): s = s + a(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO k
    PRINT y(i);
NEXT
PRINT "kol-vo elementov v massive Y="; k
PRINT "srednee arifmeticheskoe="; s / k