Массивы

[Волк]

Доброго времени суток!Уважаемые граждане помогите пожалуйста:

С клавиатуры вводится массив X, состоящий из положительных и отрицательных элементов. Сформировать новый массив Y из элементов
массива X, в котором вначале стоят все отрицательные элементы, за ними – нулевые, за ними – все положительные. Порядок следования
сохранить.

Вот в чем проблема я сделал но нужно "порядок следования сохранить".
если эта строчка кому-то не понятно то вот что надо cделать:
Массив X: 0;-5;-11;5;4;0;-20
Массив Y: -5;-11;-20;0;0;5;4
а у меня получается вот такой массив Y:-20;-11;-5;0;0;4;5

Пожалуйста помогите!!Заранее спасибо

[alex77755]

Что бы подсказать надо видеть не результаты, а код.
У тебя массив отсортирован

[Hugo121]

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

[vikttur]

=НАИМЕНЬШИЙ(массив;СТОЛБЕЦ(A1))

[EducatedFool]

а поискать готовое решение не пробовали?

[Hugo121]

Вот так и сделано по одной ссылке - несколько циклов перебора...

[Волк]

я делаю так :

Option Explicit
Dim Arr1() As Integer
Dim Arr2() As Integer
Dim i, J, tmp As Integer

Private Sub CommandButton1_Click()
On Error GoTo error
 
i = 1

Do While Worksheets(7).Cells(i, 2).Value <> ""
Worksheets(7).Cells(i, 2).Clear 'очищаем 2 колонку
i = i + 1
Loop


' Увелечение размерности массива
ReDim Arr1(1)
ReDim Arr2(1)

i = 1
' Пошло присвоение элементам массива числа из листа
Do While Worksheets(7).Cells(i, 1).Value <> ""
Arr1(i) = Worksheets(7).Cells(i, 1).Value
Arr2(i) = Arr1(i)
i = i + 1
ReDim Preserve Arr1(i) ' Изменение размерности без обнуления
ReDim Preserve Arr2(i)
Loop


'Пошла сортировка
J = 1
tmp = 0

For J = 1 To UBound(Arr2) - 1
  For i = 1 To UBound(Arr2) - 1
    If i <> J Then
      If Arr2(i) > Arr2(J) Then
            tmp = Arr2(J)
        Arr2(J) = Arr2(i)
        Arr2(i) = tmp
      End If
    End If
  Next
Next

'Конец сортировки


' Пошел вывод в лист
For i = 1 To UBound(Arr2) - 1
Worksheets(7).Cells(i, 2) = Arr2(i)
Next i

'Дебаг
Exit Sub
error:
Call Ошибки.error(7)
End Sub

[Hugo121]

Так Вам же не нужна сортировка!
Делайте 3 раза цикл присвоения - сперва отрицательные и т.д.

[Волк]

Hugo121 пожалуйста помоги с кодом. Или кто еще если можете а то просто срочно надо.Плиз

[motorway]

Можно перебирать элементы и в зависимости от знака добавлять их в конец одной из трех строк, добавляя разделитель после каждого числа, а затем просто сделать Split этих строк