Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К) - QBasic

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

[QBASIC] Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К) прогу и блок схему напишите пожалуйста:*

Решение задачи: «Заменить элементы,расположенные над главной диагональю массива единицами,а под главной диагональю-нулями(Н=К)»

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

CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND * 100)
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I
FOR I = 1 TO N
FOR J = 1 TO N
IF I <> J AND I < J THEN A(I, J) = 1
IF I <> J AND I > J THEN A(I, J) = 0
NEXT J, I
PRINT
FOR I = 1 TO N
FOR J = 1 TO N
PRINT USING "####"; A(I, J);
NEXT J
PRINT
NEXT I

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

В первой части кода пользователь вводит значение переменной N, которая представляет собой размер массива.
Затем создается двумерный массив A размером NxN.
Второй цикл заполняет этот массив случайными числами от 0 до 99.
Затем выводится на экран заполненный массив.
Следующий цикл проверяет элементы массива и заменяет нулями элементы, расположенные под главной диагональю, а единицами - элементы, расположенные над главной диагональю.
Затем массив снова выводится на экран.