Напишите программу, которая переставляет соседние элементы массива - PascalABC.NET

Формулировка задачи:

Напишите программу, которая переставляет соседние элементы массива (1-й элемент поменять с 2-м, 3-й с 4-м и т.д. Если элементов нечетное число, то последний элемент остается на своем месте). Входные данные Сначала задано число N — количество элементов в массиве (1<=N<=35). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел. Выходные данные Необходимо вывести массив, полученный после перестановки элементов.

Решение задачи: «Напишите программу, которая переставляет соседние элементы массива»

Листинг программы

var n : integer;
a : array[1..35];
begin
read (n);
for var i := 1 to n do
read (a[i]);
for var z := 1 to z div 2 do
Swap(A[i*2-1], A[i*2]);
write (a);
end.

Объяснение кода листинга программы

В данном коде:

Объявлены две переменные: n и a.
Переменная n содержит целочисленное значение, которое будет использоваться для определения количества элементов в массиве.
Переменная a представляет собой массив, содержащий элементы, которые будут переставляться.
В цикле с помощью функции read() происходит чтение значений для каждого элемента массива.
В цикле выполняется перестановка соседних элементов массива с помощью функции Swap().
Выполняется запись элементов массива с помощью функции write(). Таким образом, данный код представляет собой программу, которая считывает на вход количество элементов в массиве и сами элементы, затем производит перестановку соседних элементов и выводит результат на экран.