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.