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

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

Дана прямоугольная матрица 5*12 1) Определить среднее отрицательных элементов 2) Построить вектор из положительных элементов матрицы

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

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

CLS
n = 5
m = 12
f = 0
h = 0
k = 0
DIM c(n, m), d(n * m)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT c(i, j)
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO m
IF c(i, j) < 0 THEN f = f + c(i, j)
IF c(i, j) < 0 THEN h = h + 1
IF c(i, j) > 0 THEN k = k + 1: d(k) = c(i, j)
NEXT
NEXT
PRINT f / h;
PRINT
PRINT
FOR u = 1 TO k
PRINT d(u)
NEXT

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

В этом коде:

Задаются размеры матрицы (n=5, m=12) и инициализируются счётчики (f=0, h=0, k=0).
Матрица c(n,m) заполняется положительными элементами с помощью ввода с клавиатуры.
Перебираются элементы матрицы c(n,m).
Если элемент меньше нуля, то он прибавляется к переменной f, а переменная h увеличивается на единицу.
Если элемент больше или равен нулю, то он добавляется в матрицу d(n*m) и переменная k увеличивается на единицу.
Вычисляется отношение f/h и выводится на экран.
Выводится на экран каждый положительный элемент матрицы d(n*m).