Подсчитать количество положительных элементов матрицы - QBasic

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

1) Подсчитать количество положительных элементов 2) Построить вектор из отрицательных элементов k-го столбца

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

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

CLS
n = 0
PRINT "vvedite n:"
INPUT n
PRINT "vvedite m:"
INPUT m
PRINT "vvedite k:"
INPUT k
f = 0
h = 0
l = 0
DIM c(n, m), d(n * m)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT c(i, j)
NEXT
NEXT
 
FOR i = 1 TO n
FOR j = 1 TO n
IF c(i, j) > 0 THEN h = h + 1
IF c(i, j) < 0 AND j = k THEN l = l + 1: d(l) = c(i, j)
NEXT
NEXT
 
PRINT h
 
 
PRINT
FOR u = 1 TO l
PRINT d(u)
NEXT

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

Это программа на языке QBasic, которая подсчитывает количество положительных элементов в заданной матрице и выводит на экран все отрицательные элементы, стоящие на заданном расстоянии от диагонали. Список действий, выполняемых в коде:

Ввод параметров:
- n (количество строк в матрице): вводится с помощью функции INPUT.
- m (количество столбцов в матрице): также вводится с помощью функции INPUT.
- k (номер столбца, отсчитываемый от левого верхнего угла для определения диагонали): вводится с помощью функции INPUT.
Создание матрицы c размерами n на m и заполнение ее значениями с помощью двух вложенных циклов FOR и функции INPUT.
Подсчет количества положительных элементов в матрице c с помощью двух вложенных циклов FOR, функции IF и переменной h.
Подсчет количества отрицательных элементов, стоящих на заданном расстоянии от диагонали, с помощью двух вложенных циклов FOR, функции IF и переменной l. Значения этих элементов сохраняются в матрице d.
Вывод на экран количества положительных элементов с помощью функции PRINT и переменной h.
Вывод на экран всех отрицательных элементов, стоящих на заданном расстоянии от диагонали, с помощью цикла FOR и функции PRINT.