Сортировка отрицательных и положительных чисел без нуля - VBA

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

Дан массив целых чисел, перенести все отрицательные числа в начало массива, а положительные - в конец. Взаимного расположения элементов одного знака не менять. Нулей в массиве нет. Решите, пожалуйста.

Решение задачи: «Сортировка отрицательных и положительных чисел без нуля»

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

                            Sub zzz()
a = Array(1, -2, 3, -4, 5, -6, 7, -8, 9)
For i = 0 To UBound(a)
  If a(i) > 0 Then
    For j = i + 1 To UBound(a)
      If a(j) < 0 Then
        t = a(j)
        For k = j To i + 1 Step -1
          a(k) = a(k - 1)
        Next
        a(i) = t
        Exit For
      End If
    Next
  End If
Next
MsgBox Join(a)
End Sub
                        

Оцени полезность:

15 голосов , оценка 4 из 5

Похожие ответы