Question

Программа на паскале!!! Реверс массива – это перестановка элементов в обратном порядке: меняются местами первый и последний элементы, второй и предпоследний и т.д. Напишите программу, которая выполняет реверс двух половин массива по отдельности. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 и N – чётное число. Выходные данные Программа должна вывести в одну строчку все элементы получившегося массива, разделив их пробелами. Примеры Входные данные 6 1 2 3 4 5 6 Выходные данные 3 2 1 6 5 4

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 var n2 := n div 2;

 (a[:n2].Reverse + a[n2:].Reverse).Println

end.

Answer 2

Для выполнения реверса двух половин массива, нужно сначала разделить массив на две равные части, затем переставить элементы каждой половины в обратном порядке, и, наконец, объединить полученные две половины.

Вот программа на языке Pascal, которая решает данную задачу:

pascalCopy code
program ReverseArray;

var
  N, i: Integer;
  arr: array of Integer;

procedure Reverse(var arr: array of Integer; start, finish: Integer);
var
  temp, j: Integer;
begin
  for j := start to (start + finish) div 2 do
  begin
    temp := arr[j];
    arr[j] := arr[finish - (j - start)];
    arr[finish - (j - start)] := temp;
  end;
end;

begin
  // Ввод размера массива
  ReadLn(N);

  // Инициализация массива и ввод элементов
  SetLength(arr, N);
  for i := 0 to N - 1 do
    Read(arr[i]);

  // Реверс первой половины массива
  Reverse(arr, 0, N div 2 - 1);

  // Реверс второй половины массива
  Reverse(arr, N div 2, N - 1);

  // Вывод результата
  for i := 0 to N - 1 do
  begin
    Write(arr[i]);
    if i < N - 1 then
      Write(' ');
  end;
end.

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