Расположить элементы массива так,чтобы отрицательные были в конце - QBasic

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

1. Расположить элементы массива так,чтобы отрицательные были в конце 2. Заменить первый отрицательный элемент массива на максимальный 3. Удалить минимальный элемент массива

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

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

CLS
RANDOMIZE TIMER
INPUT "vvedite kolichestvo elementov ", n
DIM a(n)
PRINT "ishodnyj massiv"
FOR i = 1 TO n
   a(i) = INT(RND * 20) - 5
     PRINT a(i);
NEXT
PRINT
PRINT
FOR i = 1 TO n
IF a(i) >= 0 THEN
    k = k + 1
    x = a(i)
      FOR j = i TO k + 1 STEP -1
      a(j) = a(j - 1)
      NEXT
      a(k) = x
      END IF
NEXT
IF k = n THEN
  PRINT "otricatelnyh elementov net"
ELSE
PRINT "novyj massiv"
FOR i = 1 TO n
PRINT a(i);
NEXT
END IF

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

Объединение и сортировка массива: В этом коде объединяются два массива в один, а затем этот новый массив сортируется по возрастанию.
Удаление отрицательных чисел из массива: Затем, в цикле, элементы массива проверяются на отрицательность. Если элемент отрицательный, он удаляется из массива путем замены на ноль. Это делается до тех пор, пока все отрицательные числа не будут удалены.
Вывод отсортированного массива: После того, как все отрицательные числа были удалены, отсортированный массив выводится на экран. Если в массиве не осталось отрицательных чисел, выводится сообщение otricatelnyh elementov net. В противном случае выводится сообщение novyj massiv, и новый массив выводится на экран.