Получить массив В, содержащий элементы массива А, расположенные между максимальным и минимальным элементами массива - QBasic

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

Люди добрые, помогите решить задачку. Дан одномерный массив А, состоящий из целых чисел. Получить массив В, содержащий элементы массива А, расположенные между максимальным и минимальным элементами массива.

Решение задачи: «Получить массив В, содержащий элементы массива А, расположенные между максимальным и минимальным элементами массива»

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

CLS
DIM a(100)
DIM b(100)
n = 10
RANDOMIZE TIMER
FOR i = 1 TO n
 a(i) = INT(RND * 100)
 PRINT a(i);
NEXT
max = a(1)
min = a(1)
FOR i = 1 TO n
 IF a(i) > max THEN
  max = a(i)
  g = i
 END IF
 IF a(i) < min THEN
  min = a(i)
  e = i
END IF
NEXT
PRINT
IF g > e THEN
FOR i = g - 1 TO e + 1 STEP -1
 b(i) = a(i)
 PRINT b(i);
NEXT
ELSE
 FOR i = g + 1 TO e - 1 STEP 1
  b(i) = a(i)
  PRINT b(i);
 NEXT
END IF
PRINT
PRINT max; min

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

Задается размер массива a(100) и b(100) равный 100.
Задаются начальные значения переменных: — n = 10, размер выборки из массива a. — max = a(1), min = a(1), инициализируются значением первого элемента массива a.
Заполняется массив a случайными числами от 0 до 100 с помощью цикла FOR и функции RND.
Находится максимальное значение в массиве a, и запоминается его индекс в переменной g.
Находится минимальное значение в массиве a, и запоминается его индекс в переменной e.
Проверяется, если g больше e, то это означает, что максимальное значение находится в конце массива, иначе в начале.
Выводится на экран массив b, который содержит значения между максимальным и минимальным элементами массива a.
Выводятся на экран значения переменных max и min.