Задача на двухмерный массив. QBASIC.

[WED]

В массиве А(6,8) найти отрицательные элементы в каждой строке и разложить их в порядке возрастания в новый массив. Обе матрицы распечатать.
Начал немного, но как из найденных элементов новый массив сделать не понимаю. Хелп.
CLS
DIM a(6, 8)
PRINT
PRINT " ZADANNbIU MASSIV"
PRINT
FOR i = 1 TO 6
FOR j = 1 TO 8
a(i, j) = INT(RND * 300) - 200
PRINT USING " #####"; a(i, j);
NEXT j
PRINT
NEXT i
PRINT " POLUCH. MASSIV"
FOR i = 1 TO 6
FOR j = 1 TO 8
IF a(i, j) < 0 THEN

[Serge_Bliznykov]

Если я правильно понял условия задача, то:

не помню, допустимы ли динамические массивы в QBASIC (динамические, это такие, где Вы можете подсчитать число отрицательных элементов kNeg, а
потом написать

DIM b( kNeg )

если возможно, то тогда, я бы написал решение в два прохода:

kNeg = 0
FOR i = 1 TO 6
 FOR j = 1 TO 8
   IF a(i, j) < 0 THEN kNeg = kNeg + 1
 Next j
Next i

DIM B( kNeg)
indB := 0
FOR i = 1 TO 6
 FOR j = 1 TO 8
   IF a(i, j) < 0 THEN indB = indB + 1 : B(indB) = A(i,j) 
 Next j
Next i

теперь нужно отсортировать полученный массив B и задача решена.

Если динамических массивов в QBASIC нет (или есть желание обойтись заполнением массива в один проход по матрице), тогда достаточно объявить массив B размером 48, чтобы его гарантированно хватило даже в том случае, если все элементы исходной матрицы будут отрицательные.

[WED]

C динамическими массивами не знаком и нам их в принципе не показывали, значит без них как-то делать.
Вот мы нашли отрицательные элементы, как их в новый массив запихнуть?

[Serge_Bliznykov]

Вот мы нашли отрицательные элементы, как их в новый массив запихнуть?

Вы мой код не очень внимательно смотрели, да?

так:

DIM B( 48 )
indB = 0
FOR i = 1 TO 6
 FOR j = 1 TO 8
   IF a(i, j) < 0 THEN indB = indB + 1 : B(indB) = A(i,j) 
 Next j
Next i

[WED]

Огромное спасибо, выручили