Abc pascal
с генератора случайных чисел задать массив счетным количеством элементов, поменять местами элементы, стоящие на 1 и 3, 5 и 7, 9 и 11 и т.д.

vvar a:array [1..10] of integer;                             //Эту

j,i,l,pr:integer;

begin                      //Для изменения диапозона надо менять 2 переменные. Они должны быть равны.

 i:=10;                                       // Эту

 for j:=1 to i do a[j]:=random(10);

 writeln ('Каким был массив:');

 writeln (a);

 for j:=1 to i-1 do

 begin

   if j mod 2=0 then inc(l) else continue;

   if l mod 2<>0 then begin  pr:=a[j-1]; a[j-1]:=a[j+1]; a[j+1]:=pr end;

 end;

 writeln ('Каким стал:');

 writeln (a);

end.