Поменять местами первую и вторую половины массива, сохраняя порядок следования элементов в каждой половине

@Baykenov · Регистрация: 04.05.2014

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

Дан массив, состоящий из четного числа элементов. Поменять местами первую и вторую его половины, сохраняя порядок следования элементов в каждой половине.

@ermolay · 05.05.2014, 08:20

Pascal

const
  nmax = 100;
var
  a: array[1..nmax] of integer;
  n, m, i, t: integer;
begin
  repeat
    write('Ââåäèòå ÷åòíîå N (N <= ',nmax,'):');
    readln(n);
  until (n in [1..nmax]) and (n mod 2 = 0);
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i]:4);
  end;
  writeln;
  m := n div 2;
  for i:=1 to m do
  begin
    t:=a[i];
    a[i]:=a[i+m];
    a[i+m]:=t;
  end;
  writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
  for i:=1 to n do write(a[i]:4);
  readln;
end.

@Baykenov 0 / 0 / 0 Регистрация: 04.05.2014 Сообщений: 2
		1
	Поменять местами первую и вторую половины массива, сохраняя порядок следования элементов в каждой половине 04.05.2014, 21:59. Показов 1834. Ответов 1 Метки нет (Все метки) Дан массив, состоящий из четного числа элементов. Поменять местами первую и вторую его половины, сохраняя порядок следования элементов в каждой половине. 0

	05.05.2014, 08:20

Поменять местами первую и вторую половины массива, сохраняя порядок следования элементов в каждой половине

Решение