Найти минимальное число и его порядковый номер в последовательности - QBasic

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

Решить через табличный способ организации данных. Даны N чисел.Составить программу которая: б)Найдет минимальное число и его порядковый номер в этой последовательности. в)Найдет сумму всех чисел этой последовательности. г)Прировняет к нулю все отрицательные числа этой последовательности. д)Найдет все числа кратные 3 или 5.

Решение задачи: «Найти минимальное число и его порядковый номер в последовательности»

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

INPUT "N=", N
DIM A(1 TO N)
M = 1
FOR i = 1 TO N
    PRINT "A("; i; ")=";
    INPUT A(i)
    IF A(i) < A(M) THEN M = i
    s = s + A(i)
NEXT
PRINT "min="; A(M); " No="; M
PRINT "S="; s
PRINT "Aix3 or Aix5"
M = 0
FOR i = 1 TO N
    IF A(i) MOD 3 = 0 OR A(i) MOD 5 = 0 THEN
        PRINT A(i)
        M = 1
    END IF
NEXT
IF M = 0 THEN PRINT "no such numbers"
PRINT "new A:"
FOR i = 1 TO N
    IF A(i) < 0 THEN A(i) = 0
    PRINT A(i)
NEXT
END

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

Ввод числа N с клавиатуры.
Выделение памяти под массив A размером N.
Инициализация переменной M значением 1.
Проход по всем элементам массива A с помощью цикла FOR.
Вывод на экран значения элемента массива A(i) и его порядкового номера.
Сравнение текущего элемента массива A(i) со значением переменной M и обновление значения переменной M, если текущий элемент меньше.
Добавление значения текущего элемента массива A(i) к переменной s.
Поиск минимального значения в массиве A и его порядкового номера.
Вывод на экран минимального значения массива A и его порядкового номера.
Вывод на экран значения переменной s.
Вывод на экран сообщения Aix3 or Aix5.
Инициализация переменной M значением 0.
Проход по всем элементам массива A с помощью цикла FOR.
Проверка, делится ли значение элемента массива A(i) на 3 или на 5 без остатка, и вывод на экран этого элемента массива при положительном результате.
Обновление значения переменной M, если найден элемент, удовлетворяющий условию.
Проверка значения переменной M после прохода по всем элементам массива A.
Если значение переменной M равно 0, то вывод на экран сообщения no such numbers.
Проход по всем элементам массива A с помощью цикла FOR.
Если значение элемента массива A(i) отрицательное, то его обновление на 0.
Вывод на экран всех элементов массива A.