Определить произведения положительных и отрицательных элементов массива X(n)

DEFINT A-Z
CLS
  INPUT "Vvedite n(stroki) : ", n
  INPUT "Vvedite t(stolbci): ", t
 
  DIM X(n, t)   ' Строки, Столбцы
  DIM D(n)      ' Доп память
 
  ' Заполним массив случайно + вывод
 
  RANDOMIZE TIMER
  FOR iy = 1 TO n
     FOR ix = 1 TO t
        X(iy, ix) = RND * 50
        PRINT X(iy, ix);
     NEXT: PRINT
  NEXT
 
  ' Найдём все минимальные эл-ты по строкам
  ' и положим в массив D
PRINT
FOR iy = 1 TO n
   MinE = X(iy, 1)
   FOR ix = 1 TO t
      IF X(iy, ix) < MinE THEN MinE = X(iy, ix)
   NEXT
   D(iy) = MinE
NEXT
 
  ' Произведём сортировку массива D
  ' но сортировать будем и строки тоже
  ' по индексам массива D
 
PRINT
FOR u = n - 1 TO 1 STEP -1
   FOR i = 1 TO u
      IF D(i) > D(i + 1) THEN
        SWAP D(i), D(i + 1)
        FOR k = 1 TO t
           SWAP X(i, k), X(i + 1, k)
        NEXT
      END IF
   NEXT
NEXT
 
  ' Выводим полученную матрицу на экран
 
  FOR iy = 1 TO n
     FOR ix = 1 TO t
        PRINT X(iy, ix);
     NEXT: PRINT
  NEXT