Question

В заданном одномерном массиве поменять местами соседние элементы. (паскаль)

Answer 1

var a : array[1..10] of integer; n, z:integer;
begin 
readln(n); 
 for var i:=1 to n do 
  readln(a[i]); 
 for var i:=1 to n-1 do begin   
  z:=a[i];   
 a[i]:=a[i+1];     
a[i+1]:=z;   
 end;   
 for var i:=1 to n do   
 writeln(a[i]);
end.

Answer 2

Вот пример кода на Паскале (Delphi), который меняет местами соседние элементы в заданном одномерном массиве:

pascalCopy code
program SwapNeighboringElements;

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

var
  arr: array[1..N] of Integer; // Одномерный массив
  i, temp: Integer;

begin
  // Заполняем массив случайными значениями для примера
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100);

  // Исходный массив
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');
  writeln;

  // Меняем местами соседние элементы
  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
    write(arr[i], ' ');
  writeln;
end.

В этом примере мы создаем массив arr размером N, заполняем его случайными значениями и затем меняем местами соседние элементы с помощью временной переменной temp. Результат выводится на экран.