Заполните массив случайными числами и переставить их - Pascal ABC

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

Заполните массив случайными числами и переставьте соседние элементы, поменяв 1-й элемент со 2-м,3-й - с 4-м и тд

Решение задачи: «Заполните массив случайными числами и переставить их»

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

const max=100;
var a:array[1..max] of integer;
    n,i,x:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',max,' n=');
readln(n);
until n in [1..100];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
i:=1;
while i<n do
 begin
  x:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=x;
  i:=i+2;
 end;
writeln('Перестановка в массиве');
for i:=1 to n do
write(a[i]:4);
end.

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

Данный код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные: max (максимальное значение для индексов массива), a (массив для хранения чисел), n (индекс массива), i (индекс элемента массива), x (текущий элемент массива).
Вычисляет максимальное значение индекса массива, которое может содержать до 100 элементов.
Инициализирует массив случайными числами от 0 до 99.
Проверяет, что введенный размер массива (n) находится в диапазоне от 2 до 100.
Выводит исходный массив чисел.
Использует цикл while для перестановки элементов массива. На каждой итерации цикла меняет местами текущий элемент массива с следующим элементом.
Выводит переставленный массив чисел.
Конец программы.