** ленте машины Поста расположен массив из 2n ячеек. Составить программу, по которой...

Question

На ленте машины Поста расположен массив из 2n ячеек. Составить программу, по которой машина Поста раздвинет на расстояние в одну ячейку две половины данного массива.

Answer 1

Const
  N = 5;
var
  i: integer;
  a: array[1..N * 2 + 1] of integer;
begin
  writeln('Исходный массив: ');
  for i := 1 to 2 * N do
  begin
    a[i] := Random(99) + 1;
    write(a[i] : 5);
  end;
  for i := 2 * N + 1 downto N + 1 do
    a[i] := a[i - 1];
  a[N + 1] := 0;
  writeln();
  writeln('Полученный массив: ');
  for i := 1 to 2 * N + 1 do
    write(a[i] : 5);
end.