Поменять местами первые элементы массивов и выполнить перестановку элементов массивов в обратном порядке

@MAILZES · Регистрация: 29.04.2015

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

амостоятельно решить следующую задачу с использованием процедур.
Даны два одномерных массива одинаковой размерности n и число m. Поменять местами первые элементы массивов и выполнить перестановку элементов массивов в обратном порядке.
Файл input.txt имеет вид:
1 строка - размерность массивов (n)
2 строка - элементы первого массива через пробел
3 строка - элементы второго массива через пробел
4 строка - число m
Результативные массивы выводятся в файл output.txt в следующем виде:
1 строка - первый массив
2 строка - второй массив

Например:
input.txt
10
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
6

output.txt
10 9 8 7 16 15 14 13 12 11
вот пример (аналог как делать) Дан массив A из n элементов и число m (1<m<n). Не используя дополнительных массивов, переставить первые m элементов в конец массивов, а элементы с m+1 по n - в начало, сохраняя порядок элементов.

Идея решения:
Переворачиваем первые m элементов.
Переворачиваем элементы, начиная с m+1.
Переворачиваем все элементы массива.
Пример. n=10, m=6. Массив А: 1 2 3 4 5 6 7 8 9 10
6 5 4 3 2 1 7 8 9 10
Первое переворачивание m элементов.
6 5 4 3 2 1 10 9 8 7
Второе переворачивание элементов с m+1 по n.
7 8 9 10 1 2 3 4 5 6
Третье переворачивание элементов с 1 по n.

Будем считать, что массив хранится в текстовом файле input.txt. В первой строке файле - количество элементов массива (n). Вторая строка файла - через пробел элементы массива.
Результат выводится в текстовый файл output.txt в одну строку через пробел.

Pascal
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
program ex16;
 type
  vector=array [1..100] of integer;
 var
  a: vector;
  n, m: integer;
 {процедура ввода массива из файла}
 procedure init (var x: vector; var k: integer);
  var
   i: integer;
   f: text;
  begin
   assign (f, 'input.txt');
   reset (f);
   readln (f, k);
   for i:=1 to k do read (f, x[i]);
   close (f);
  end;
 {процедура вывода массива в файл}
 procedure print (x: vector; k: integer);
  var
   i: integer;
   f: text;
  begin
   assign (f, 'output.txt');
   rewrite (f);
   for i:=1 to k do write (f, x[i]:6);
   close (f);
  end;
 {процедура "переворачивания" части массива}
 procedure swap (k, j: integer; var x: vector);
  var
   i, p, tmp: integer;
  begin
   p:=j;
   for i:=k to k+(j-k) div 2 do
    begin
     tmp:=x[i];
     x[i]:=x[p];
     x[p]:=tmp;
     p:=p-1;
    end;
   end;
begin {основная программа}
 readln (m);
 init (a, n);
 swap (1, m, a);
 swap (m+1, n, a);
 swap (1, n, a);
 print (a, n);
end.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	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 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»