Найти количество отрицательных элементов матрицы, расположенных на побочной диагонали и выше ее - QBasic

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

дана матрица nxn. найти количество отрицательных элементов,расположенных на побочной диагонали и выше ее,а также максимальный элемент побочной диагонали.

Решение задачи: «Найти количество отрицательных элементов матрицы, расположенных на побочной диагонали и выше ее»

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

CLS
OPEN "input.txt" FOR INPUT AS #1
INPUT #1, n
DIM a(n, n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT #1, a(i, j)
NEXT
NEXT
CLOSE
CLS
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT: PRINT
NEXT

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

Задание размера матрицы n.
Заполнение матрицы a значениями из файла input.txt.
Закрытие файла input.txt.
Очистка экрана.
Вывод значений матрицы a на экран.

Оцени полезность:

13 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы