Заменить нулями те числа, величина которых по модулю больше максимального числа у массива - QBasic

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

№3 Одномерные массивы 1) Дан массив а(n) Заменить нулями те числа, величина которых по модулю больше максимального числа у этого массива. 2) Дана последовательность целых чисел.Найти максимальный и минимальный элемент этого массива. ппц как надо(

Решение задачи: «Заменить нулями те числа, величина которых по модулю больше максимального числа у массива»

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

INPUT "n"; n
DIM a(n)
FOR i = 1 TO n
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
max = -1E38
FOR i = 1 TO n
    IF a(i) > max THEN max = a(i)
NEXT
FOR i = 1 TO n
    IF ABS(a(i)) > max THEN a(i) = 0
NEXT
PRINT
FOR i = 1 TO n
    PRINT a(i);
NEXT

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

В первой строке ввода с помощью функции INPUT запрашивается число n, которое будет использоваться для определения размера массива.
Далее с помощью DIM определяется массив a(n) размером n.
В цикле FOR с переменной i от 1 до n происходит ввод элементов массива a(i) с помощью функции INPUT.
Выводится размер массива n.
В цикле FOR с переменной i от 1 до n выводятся все элементы массива a(i).
Переменная max инициализируется как -1E38, что является самым маленьким числом типа Single, и представляет собой максимально возможное значение для данного типа данных.
В цикле FOR с переменной i от 1 до n происходит сравнение каждого элемента массива a(i) с переменной max, и если a(i) больше max, то max присваивается значение a(i).
В цикле FOR с переменной i от 1 до n происходит проверка, если абсолютное значение элемента массива a(i) больше max, то a(i) заменяется на 0.
Выводится результат.
В цикле FOR с переменной i от 1 до n выводятся все элементы массива a(i).