Преобразовать 2 заданных массива по 15 элементов в каждом - QBasic

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

преобразовать 2 заданных массива по 15 элементов в каждом,увеличивая их соответствующие элементы на меньшее из рассматриваемой каждый раз пары чисел.После преобразования в первом массиве найти среднее арифметическое,во втором массиве найти минимальный элемент.Результы распечатать в видеи дальше тут идет табличка,в ней в первом столбце 'исходные данные',под этим 'результаты',и напротив каждой из этих двух ячеек 'массив 1,массив 2' ) среднее арифметическое= MIN=

Решение задачи: «Преобразовать 2 заданных массива по 15 элементов в каждом»

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

CLS
RANDOMIZE TIMER
n = 15
DIM a(n), b(n)
FOR i = 1 TO n
    a(i) = FIX(RND * 100)
    b(i) = FIX(RND * 100)
NEXT
PRINT "massiv a"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "massiv b"
FOR i = 1 TO n
    PRINT b(i);
NEXT
PRINT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    IF a(i) < b(i) THEN
        a(i) = a(i) + a(i)
        b(i) = b(i) + a(i) / 2
    ELSE
        a(i) = a(i) + b(i)
        b(i) = b(i) + b(i)
    END IF
NEXT
min = b(1)
FOR i = 1 TO n
    sr = sr + a(i)
    IF b(i) < min THEN min = b(i)
NEXT
sr = sr / n
PRINT "new massiv a"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "new massiv b"
FOR i = 1 TO n
    PRINT b(i);
NEXT
PRINT
PRINT STRING$(80, 196)
PRINT "srednee arifmeticheskoe massiva a:"; sr
PRINT "min massiva b:"; min

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

Объявляются две матрицы a(n) и b(n) по 15 элементов в каждой.
Задаются случайные значения для элементов матриц a и b с помощью функции FIX(RND * 100).
Выводятся значения матрицы a.
Выводятся значения матрицы b.
Задается переменная min, которая будет хранить минимальное значение из матрицы b.
Задается переменная sr, которая будет хранить сумму элементов матрицы a.
Происходит сравнение элементов матрицы a и b и выполняется ряд операций, в результате которых значения элементов матрицы a и b изменяются.
Находится минимальное значение в матрице b и записывается в переменную min.
Вычисляется среднее значение элементов матрицы a с помощью функции sr / n.
Выводятся новые значения матрицы a.
Выводятся новые значения матрицы b.
Выводится строка, заполненная символом '*' длиной 80.
Выводится сообщение с минимальным значением матрицы b.
Выводится сообщение со средним значением матрицы a.