Question

В заданном одномерном массиве поменять местами соседние элементы.Напишите программу на Паскале, заранее спасибо!

Answer 1

Var
  n, i, c : integer;
  a : array [1..1000] of integer;
begin
  read (n);
   for i := 1 to n do read (a[i]);
  for i := 1 to n div 2 do
  begin
    c := a[i*2];
    a[i*2] := a[i*2-1];
    a[i*2-1] := c;
  end;
  for i := 1 to n do
    write (a[i], ' ');
end.

Answer 2

Конечно, вот программа на Паскале, которая меняет местами соседние элементы в заданном одномерном массиве:

program SwapNeighbours;

const
  N = 5; // размер массива

var
  arr: array[1..N] of Integer;
  i, temp: Integer;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
    readln(arr[i]);

// Меняем местами соседние элементы
  for i := 1 to N - 1 do
  begin
    temp := arr[i];
    arr[i] := arr[i + 1];
    arr[i + 1] := temp;
  end;

// Вывод измененного массива
  writeln('Массив после замены соседних элементов:');
  for i := 1 to N do
    writeln(arr[i]);
end.

В этой программе мы сначала вводим элементы массива с помощью цикла `for` и `readln`. Затем мы проходим по массиву с помощью еще одного цикла `for` и меняем местами текущий элемент с его соседним элементом. Для этого мы используем временную переменную `temp`, чтобы сохранить значение текущего элемента перед заменой.

После этого мы выводим измененный массив с помощью цикла `for` и `writeln`.

Программа работает для массива размером `N = 5`, но вы можете изменить значение `N` в соответствии с вашими потребностями.