Question

Поменять местами соседние элементы массива (1 и 2, 2 и 3, 3 и 4, и т.д.) - pascal abc

Answer 1

Var a:array[1..100] of integer;
i,n,c:integer;
begin
write('Введите кол-во элементов: ');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
if i=n then write(a[i]) else 
begin
c:=a[i];
a[i]:=a[i+1];
a[i+1]:=c;
write(a[i],' ');
end;
end;
end.

Answer 2

В Pascal можно поменять местами соседние элементы массива с помощью цикла. Вот пример кода:

program SwapAdjacentElements;

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

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` и заполняем его случайными числами. Затем мы выводим исходный массив, меняем местами соседние элементы с помощью цикла `for`, и выводим измененный массив.