Переворачивание массива

@BAAAAAas · Регистрация: 14.04.2013

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

Даны массив A из n элементов и число m, где 1<m<n. Не используя дополнительных массивов, переставить первые m элементов в конец массива, а элементы с (m+1)-го по n-й в начало, сохраняя порядок элементов. Метод решения: переворачиваем первые m элементов, затем переворачиваем элементы, начиная с (m+1)-го, а затем переворачиваем все элементы массива.

@Puporev · 24.04.2013, 16:33

Метод довольно странный, куда проще сдвигом влево.

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,m,i,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
repeat
write('1<m<',n,' m=');
readln(m);
until m in[2..n-1];
for i:=1 to m div 2 do
 begin
  x:=a[i];
  a[i]:=a[m-i+1];
  a[m-i+1]:=x;
 end;
for i:=1 to (n-m)div 2 do
 begin
  x:=a[m+i];
  a[m+i]:=a[n-i+1];
  a[n-i+1]:=x;
 end;
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x;
 end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
readln
end.

Добавлено через 30 секунд
Но раз надо, значит надо.

@BAAAAAas 29 / 29 / 42 Регистрация: 14.04.2013 Сообщений: 81
		1
	Переворачивание массива 24.04.2013, 15:51. Показов 1084. Ответов 1 Метки нет (Все метки) Даны массив A из n элементов и число m, где 1<m<n. Не используя дополнительных массивов, переставить первые m элементов в конец массива, а элементы с (m+1)-го по n-й в начало, сохраняя порядок элементов. Метод решения: переворачиваем первые m элементов, затем переворачиваем элементы, начиная с (m+1)-го, а затем переворачиваем все элементы массива. 0

	24.04.2013, 16:33

Переворачивание массива

Решение