Найти максимальные и минимальные элементы в каждом массиве, их индексы, количество элементов между ними - QBasic

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

Помогите плиз(( 1.Даны два массива по 20 элементов. Найти максимальные и минимальные элементы в каждом массиве, их индексы, количество элементов между ними, сравнив их между собой. Результат распечатать в виде: Массив1: Массив2: MAX= imax= Количество элементов: MIN= imin= MAX-MIN= и второй прога: 1.Даны два массива по 20 элементов. Для элементов 2-го массива найти среднее арифметическое. Элементы 1-го массива, большие полученной величины , увеличить в 2 раза.

Решение задачи: «Найти максимальные и минимальные элементы в каждом массиве, их индексы, количество элементов между ними»

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

DIM a(20) AS INTEGER, b(20) AS INTEGER
RANDOMIZE TIMER
PRINT "A ="
FOR i = 1 TO 20
  a(i) = INT(RND * 50)
  PRINT USING " ##"; a(i);
NEXT: PRINT
s = 0
PRINT "B ="
FOR i = 1 TO 20
  b(i) = INT(RND * 50)
  PRINT USING " ##"; b(i);
  s = s + b(i)
NEXT: PRINT
s = s / 20
PRINT "AVG ="; s
PRINT "A'="
FOR i = 1 TO 20
  IF a(i) > s THEN a(i) = a(i) * 2
  PRINT USING " ##"; a(i);
NEXT: PRINT

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

Первое, что делает код, это инициализирует два массива a и b, каждый из которых содержит 20 элементов типа INTEGER.
Затем код генерирует случайные значения для каждого элемента массивов a и b с помощью функции RND и оператора INT, который округляет результат до целого числа. Значения элементов массива a печатаются с использованием формата ##, а значения элементов массива b сначала печатаются, а затем суммируются.
После этого код находит среднее значение элементов массива b, делая суммарное значение элементов массива b равным s.
Затем код перебирает элементы массива a и проверяет, является ли каждый элемент больше среднего значения s. Если это так, то элемент умножается на 2.
Наконец, код печатает элементы массива a с использованием формата ##.