Определите значение и номер последнего отрицательного числа - QBasic

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

Организуйте массив. Определите значение и номер последнего отрицательного числа.

Решение задачи: «Определите значение и номер последнего отрицательного числа»

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

n = 5
m = 6
DIM a(1 TO n, 1 TO m)
FOR i = 1 TO n
FOR j = 1 TO m
a(i,j) = INT(RND*100)-50
NEXT j
NEXT i
 
FOR i = 1 TO n
FOR j = 1 TO m
PRINT USING "###   "; a(i,j);
NEXT j
PRINT
NEXT i
PRINT
 
L = a(1,1): IL = 0: jL = 0
FOR i = 1 TO n
FOR j = 1 TO m
IF a(i,j) < 0 THEN 
L = a(i,j)
Il = i
jL = j
END IF
NEXT j
NEXT i
 
PRINT "L = "; L, "IL = "; Il, "jL = "; jL

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

Задаются начальные значения переменных n и m, которые определяют размер массива a. Значение n равно 5, а m равно 6.
Создается массив a размером n на m с помощью команды DIM a(1 TO n, 1 TO m).
Заполняется массив a случайными числами от -50 до 50 с помощью цикла FOR и формулы a(i,j) = INT(RND*100)-50.
Выводится на экран содержимое массива a с помощью цикла FOR и команды PRINT USING ### ; a(i,j);.
Начальное значение переменной L равно первому отрицательному числу в массиве a, а переменные Il и jL равны индексам этого числа.
Циклы FOR проверяют каждый элемент массива a на отрицательность. Если элемент отрицательный, то его значение присваивается переменной L, а его индексы сохраняются в переменных Il и jL.
Выводятся на экран значения переменных L, Il и jL с помощью команды PRINT L =; L, IL =; Il, jL =; jL.