Сортировка и слияние массивов

20.06.2013, 17:04. **Показов** 1884. **Ответов** 4

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

Заданы два одномерных массива с различным количеством элементов и натуральное число k. Объединить их в один массив, включив второй массив между k-м и (k+ 1)-м элементами первого, при этом не используя дополнительный массив.
Заранее спасибо за любую посильную помошь

@Апострофф · 20.06.2013, 17:40

Elena_717, непонятно, сколько всего массивов, 2 или 3?

20.06.2013, 18:07

2 массива

@Catstail · 20.06.2013, 18:24

Сообщение от Elena_717

включив второй массив между k-м и (k+ 1)-м элементами первого

- cдвинуть (k+1)-й и последующие элементы "вниз"? А места в первом массиве хватит?

Добавлено через 4 минуты
Формулировка некорректна. В первом массиве должно быть свободное место, т.е. нужно еще задать, с какого элемента первый массив свободен. В противном случае задача решения не имеет.

@The trick · 20.06.2013, 22:08

Индексация от 0, для вставки в начало K=-1, в конец K=Ubound(A).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Private Sub Form_Load()
    Dim A() As Long, B() As Long, I As Long, K As Long
    Me.AutoRedraw = True
    ReDim A(10): ReDim B(10): K = 7
    Me.Print "Массив А"
    For I = 0 To UBound(A): A(I) = Rnd * 100: Me.Print A(I);: Next
    Me.Print vbNewLine & "Массив B"
    For I = 0 To UBound(B): B(I) = Rnd * 100: Me.Print B(I);: Next
    ReDim Preserve A(UBound(A) + UBound(B) + 1)
    For I = UBound(A) To K + 1 Step -1
        If I > K And I <= K + UBound(B) + 1 Then
            A(I) = B(I - K - 1)
        Else
            A(I) = A(I - UBound(B) - 1)
        End If
    Next
    Me.Print vbNewLine & "Результат"
    For I = 0 To UBound(A): Me.Print A(I);: Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

Elena_717

	Сортировка и слияние массивов 20.06.2013, 17:04. Показов 1884. Ответов 4 Метки нет (Все метки) Заданы два одномерных массива с различным количеством элементов и натуральное число k. Объединить их в один массив, включив второй массив между k-м и (k+ 1)-м элементами первого, при этом не используя дополнительный массив. Заранее спасибо за любую посильную помошь

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	20.06.2013, 17:40
	Elena_717, непонятно, сколько всего массивов, 2 или 3? 0

Сортировка и слияние массивов

Решение