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

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

в матрице 10 x 20 найти сумму элементов, определить min элемент 3-й строки.построить вектор из отрицательных элементов исходной матрицы.

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

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

DEFINT A-B, I-K, M, X-Y
OPTION BASE 1
RANDOMIZE TIMER
CLS
DIM a(10, 20)
 
k = 0
FOR i = 1 TO 10
   FOR j = 1 TO 20
      a(i, j) = 19 * RND - 9.5
      IF a(i, j) < 0 THEN k = k + 1
      PRINT a(i, j);
   NEXT j
   PRINT
NEXT i
 
min = a(3, 1)
FOR j = 2 TO 20
   IF min > a(3, j) THEN min = a(3, j)
NEXT j
 
PRINT
PRINT "Min = "; min
DIM b(k)
PRINT
 
k = 1
FOR i = 1 TO 10
   FOR j = 1 TO 20
      IF a(i, j) < 0 THEN b(k) = a(i, j): PRINT b(k); : k = k + 1
   NEXT j
NEXT i
END

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

В этом коде задача заключается в создании вектора из отрицательных элементов исходной матрицы.

Сначала мы определяем матрицу a(10,20) размером 10x20 ячеек.
Затем мы используем два вложенных цикла для прохода по всем элементам матрицы. Для каждого элемента мы присваиваем ему случайное значение от -9.5 до 9.5 и проверяем его знак. Если элемент отрицательный, мы увеличиваем счетчик k на 1.
Мы также выводим каждый элемент матрицы на экран для проверки.
После прохождения по всем элементам матрицы мы находим минимальное значение в матрице, используя вложенный цикл и переменную min.
Затем мы создаем вектор b(k), который будет содержать отрицательные элементы матрицы. Мы используем внешний цикл для прохода по каждому элементу матрицы и внутренний цикл для проверки знака элемента. Если элемент отрицательный, мы присваиваем его значение вектору b и выводим его на экран. После этого мы увеличиваем счетчик k на 1.
В конце мы выводим на экран вектор b. Таким образом, результатом выполнения этого кода будет вектор из отрицательных элементов исходной матрицы.