Переписать все элементы Х для 3 < Xi < 10 в начало Y, подсчитать их количество и среднее арифметическое

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

В примере таких чисел 3. Среднее 18/3 = 6.
X 1 4 2 8 6 11
Y 4 8 6

INPUT"vvedite kol-vo chisel ",n
DIM x(n),y(n)
RANDOMIZE TIMER
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

автор: кот Бегемот