Перенести в начало массива А (n) все его отрицательные

@StileSex · Регистрация: 12.06.2013

Студворк — интернет-сервис помощи студентам

Перенести в начало массива A(n) все его отрицательные элементы,затем-нулевые и в конце-все положительные с сохранением порядка следования в каждой группе) заранее-спасибо)

@Catstail · 20.06.2013, 16:40

Рабочие массивы использовать можно? Тогда так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Reorg(X() as intger)
Dim Pos() as integer
Dim Zer() as integer
Dim Neg() as integer
      m%=Ubound(X,1)
      ReDim Pos(1 to m%) as integer
      ReDim Zer(1 to m%) as integer 
      ReDim Neg(1 to m%) as integer
      p%=0
      z%=0
      n%=0 
      For i%=1 to m%
           If X(i%)=0 then
              z%=z%+1
              Zer(z%)=X(i%)
           Elseif X(i%)>0 then
              p%=p%+1
              Pos(p%)=X(i%)
           Else
              n%=n%+1
              Neg(n%)=X(i%)
           End if  
     Next i%
     k=0%
     For i%=1 to n%
          k%=k%+1
          X(k%)=Neg(i%)
     next i%
     For i%=1 to z%
          k%=k%+1
          X(k%)=Zer(i%)
     next i%
     For i%=1 to p%
          k%=k%+1
          X(k%)=Pos(i%)
     next i%
End Sub

@StileSex · 21.06.2013, 01:05 **[ТС]**

Catstail, Благодарю)

Добавлено через 3 часа 38 минут
но все равно не выходит,не увязки с подпрограммой.

Добавлено через 18 минут
или мне не доходит)

@Catstail · 21.06.2013, 17:04

Виноват, были две мелкие "плюшки". Вот работающий вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Reorg(X() As Integer)
 
Dim Pos() As Integer
Dim Zer() As Integer
Dim Neg() As Integer
      
      m% = UBound(X, 1)
      ReDim Pos(1 To m%) As Integer
      ReDim Zer(1 To m%) As Integer
      ReDim Neg(1 To m%) As Integer
      p% = 0
      z% = 0
      n% = 0
      For i% = 1 To m%
           If X(i%) = 0 Then
              z% = z% + 1
              Zer(z%) = X(i%)
           ElseIf X(i%) > 0 Then
              p% = p% + 1
              Pos(p%) = X(i%)
           Else
              n% = n% + 1
              Neg(n%) = X(i%)
           End If
     Next i%
     k% = 0
     For i% = 1 To n%
          k% = k% + 1
          X(k%) = Neg(i%)
     Next i%
     For i% = 1 To z%
          k% = k% + 1
          X(k%) = Zer(i%)
     Next i%
     For i% = 1 To p%
          k% = k% + 1
          X(k%) = Pos(i%)
     Next i%
End Sub
 
Sub Start()
Dim X(1 To 10) As Integer
    X(1) = 0
    X(2) = 111
    X(3) = -111
    X(4) = 0
    X(5) = -222
    X(6) = 222
    X(7) = 0
    X(8) = 0
    X(9) = 1
    X(10) = -1
    Reorg X
    For i% = 1 To 10
        Debug.Print X(i%)
    Next i%
End Sub

Печать:

-111
-222
-1
0
0
0
0
111
222
1

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Перенести в начало массива А (n) все его отрицательные

Решение

Решение

@StileSex 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 18

	Перенести в начало массива А (n) все его отрицательные 20.06.2013, 15:08. Показов 1140. Ответов 3 Метки нет (Все метки) Перенести в начало массива A(n) все его отрицательные элементы,затем-нулевые и в конце-все положительные с сохранением порядка следования в каждой группе) заранее-спасибо) 0

@StileSex 0 / 0 / 0 Регистрация: 12.06.2013 Сообщений: 18
	21.06.2013, 01:05 [ТС]
	Catstail, Благодарю) Добавлено через 3 часа 38 минут но все равно не выходит,не увязки с подпрограммой. Добавлено через 18 минут или мне не доходит) 0