Question

(задачу решить на языка Паскаля) В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

Answer 1

//PascalABC.Net 3.2
procedure swap (var a1, a2: integer);
begin
var promt:=a1;
a1:=a2;
a2:=promt;
end;

begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger ('Размерность : '));
var i:=-1;
while (i+2)<length (a) do
begin
i+=2;
swap (a[i], a[i-1]);
end;
a.Print;
end.

Answer 2

Вот пример решения этой задачи на языке Pascal:

pascalCopy code
program SwapArrayElements;

const
  N = 10;  // Размер массива

var
  arr: array[1..N] of Integer;
  i, temp: Integer;

begin
  // Инициализация массива
  for i := 1 to N do
    arr[i] := i;

  // Вывод исходного массива
  Write('Исходный массив: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

  // Меняем местами соседние элементы на четных и нечетных позициях
  for i := 2 to N step 2 do
  begin
    temp := arr[i];
    arr[i] := arr[i - 1];
    arr[i - 1] := temp;
  end;

  // Вывод результата
  Write('Массив после обмена: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;
end.

В этом примере мы сначала создаем массив arr и инициализируем его элементами от 1 до N. Затем мы проходим по массиву и меняем местами элементы на четных и нечетных позициях. Наконец, мы выводим исходный и измененный массивы на экран.

Вы можете изменить значение N и содержание массива arr, чтобы протестировать программу на других данных.