Найти среднее арифметическое из отрицательных элементов матрицы - QBasic

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

Помогите написать программу. Дана матрица размерностью NxM. Построить вектор из положительных элементов матрицы.Найти среднее арифметическое из отрицательных элементов матрицы.

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

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

INPUT "vvedite n"; n
INPUT "vvedite m"; m
 
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
 
PRINT "Matrica NxM:"
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT USING "###   "; a(i, j);
    NEXT j
    PRINT
NEXT i
PRINT
 
PRINT "Zadanie 1"
k = 0
FOR i = 1 TO n
    FOR j = 1 TO m
        IF a(i, j) > 0 THEN
            k = k + 1
        END IF
    NEXT j
NEXT i
 
DIM vek(1 TO k)
 
PRINT " vek = ";
FOR i = 1 TO n
    FOR j = 1 TO m
        IF a(i, j) > 0 THEN
            vek(k) = a(i, j)
            PRINT vek(k);
        END IF
    NEXT j
NEXT i
PRINT
PRINT
 
PRINT "Zadanie 2"
S = 0
Kol = 0
FOR i = 1 TO n
    FOR j = 1 TO m
        IF a(i, j) < 0 THEN
            S = S + a(i, j)
            Kol = Kol + 1
        END IF
    NEXT j
NEXT i
Srar = S / Kol
PRINT "S = "; S, "kol = "; Kol, "Srar = "; Srar
END

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

В этом коде реализована задача на языке QBasic, которая включает в себя следующие шаги:

Ввод данных от пользователя:
- Первая строка ввода: ввод числа n (размер матрицы по первой оси).
- Вторая строка ввода: ввод числа m (размер матрицы по второй оси).
Создание матрицы типа a(1 TO n, 1 TO m) с помощью оператора DIM.
Заполнение матрицы случайными числами от -50 до 50 с помощью цикла FOR и оператора PRINT.
Вывод матрицы на экран с помощью цикла FOR и оператора PRINT.
Подсчет количества положительных элементов в матрице с помощью переменных k и i.
Создание вектора vek(1 TO k) для хранения положительных элементов матрицы.
Вывод положительных элементов матрицы на экран с помощью цикла FOR и оператора PRINT.
Подсчет суммы отрицательных элементов матрицы с помощью переменных S и i.
Подсчет количества отрицательных элементов матрицы с помощью переменной Kol.
Вычисление среднего арифметического отрицательных элементов матрицы с помощью формулы Srar = S / Kol.
Вывод суммы, количества и среднего арифметического на экран с помощью оператора PRINT. Код заканчивается командой END.