Из одного вектора получить другой по правилу - QBasic

Формулировка задачи:

Помогите пожалуйста решить!!!! Из заданного вектора A(3N) получите вектор B(N), очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора А. Спасибо)

Решение задачи: «Из одного вектора получить другой по правилу»

Листинг программы

INPUT "N="; N
DIM A(1 TO N * 3), B(1 TO N)
PRINT "A:"
FOR i = 1 TO N * 3
    A(i) = FIX(RND * 10 + 1)
    PRINT i; ":"; A(i)
NEXT
PRINT
PRINT "B:"
FOR i = 1 TO N
    B(i) = (A(3 * i - 2) + A(3 * i - 1) + A(3 * i)) / 3
    PRINT i; ":"; B(i)
NEXT
PRINT

Объяснение кода листинга программы

Пользователю предлагается ввести число N.
Затем, введенное число N используется для определения размеров массивов A и B.
Массив A инициализируется случайными числами от 1 до 10.
Выводится список элементов массива A.
Массив B инициализируется как среднее арифметическое трех последовательных элементов массива A.
Выводится список элементов массива B.