Работа 3.6 Упр.4 ГДЗ Семакин 10 класс (Информатика)

Задача

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

Подробный ответ

Нужно пройти по массиву парами соседних элементов и менять их местами: $$A_1 \leftrightarrow A_2,\; A_3 \leftrightarrow A_4,\; A_5 \leftrightarrow A_6,\dots$$

Для этого удобно использовать переменную-перестановку t. В цикле индекс увеличивается на 2, чтобы обрабатывать сразу две соседние ячейки.

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.