В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных

Буду очень признателен"В заданном одномерном массиве поменять местами соседние элементы, стоящие на чётных местах, с элементами, стоящими на нечётных. Каждый элемент массива выбирается случайно.В начале и по окончании вывести на экран значения элементов массива (до - после)."
1 ответ

Var A:array[1..100] of integer;
    i,n,t:integer;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный массив: ');
    For i:=1 to n do
     Begin
      A[i]:=random(30)-15;
      write(A[i]:4);
     End;
    writeln;
    writeln('Преобразованный: ');
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=A[i];
      A[i]:=A[i+1];
      A[i+1]:=t;
      inc(i,1);
     End;
     For i:=1 to n do
      write(A[i]:4);
    readln;
End.