Как определить наибольшее/наименьшее число в заданном массиве - QBasic

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

Ребята, помогите. Как определить наибольшее/наименьшее число в заданном массиве, чтобы его определяла программа, а не пользователь, без использования сортировки. И еще такой вопрос, как разместить результаты цикла в 2 столбика? С оператором LOCATE не получается. Скриншоты кода прилагаю

Решение задачи: «Как определить наибольшее/наименьшее число в заданном массиве»

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

CLS
RANDOMIZE TIMER
CONST n = 10
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 50 * RND - 20
   PRINT A(i);
NEXT i
PRINT : PRINT
 
max = A(1)
min = A(1)
 
FOR i = 2 TO n
   IF max < A(i) THEN max = A(i)
   IF min > A(i) THEN min = A(i)
NEXT i
PRINT "MAX ="; max
PRINT "MIN ="; min
END

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

Объявляется константа n равная 10, которая определяет размер массива A.
Массив A инициализируется 10 случайными целыми числами от 0 до 30 с шагом 5.
Первая итерация цикла проходит для определения начального значения переменных max и min.
Вторая и последующие итерации цикла сравнивают текущее значение A(i) с текущими значениями max и min и обновляют эти переменные при необходимости.
По окончании цикла выводятся значения переменных max и min, которые представляют собой наибольшее и наименьшее число в массиве A соответственно.