Поменять местами соседние элементы массива (1 и 2, 2 и 3, 3 и 4, и т.д.) - pascal abc
Поменять местами соседние элементы массива (1 и 2, 2 и 3, 3 и 4, и т.д.) - pascal abc
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SwapNeighboringElements;
var
numbers: array[1..10] of Integer;
i, tmp: Integer;
begin
for i := 1 to 10 do
begin
numbers[i] := i * 10; // fill the array with numbers 10, 20, 30, ... . 100
Write(numbers[i], ' ');
end;
Writeln;
for i := 1 to 9 do
begin
tmp := numbers[i];
numbers[i] := numbers[i + 1];
numbers[i + 1] := tmp;
end;
for i := 1 to 10 do
Write(numbers[i], ' ');
end.