Как в двумерном массиве поменять 1 и 3 строки местами? Паскаль.

Предыдущий
вопрос Следующий
вопрос

Для того чтобы поменять 1 и 3 строки в двумерном массиве в Паскале, можно использовать следующий код:

program SwapRows;
const
N = 3; // количество строк
M = 5; // количество столбцов
var
arr: array[1..N, 1..M] of Integer;
i, j, temp: Integer;
begin
// заполняем двумерный массив arr случайными числами
Randomize;
for i := 1 to N do
for j := 1 to M do
arr[i, j] := Random(100);
// выводим массив до замены строк
writeln('Массив до замены строк:');
for i := 1 to N do
begin
for j := 1 to M do
write(arr[i, j], ' ');
writeln;
end;
// меняем местами 1 и 3 строки
for j := 1 to M do
begin
temp := arr[1, j];
arr[1, j] := arr[3, j];
arr[3, j] := temp;
end;
// выводим массив после замены строк
writeln;
writeln('Массив после замены строк:');
for i := 1 to N do
begin
for j := 1 to M do
write(arr[i, j], ' ');
writeln;
end;
end.

Этот код создаст двумерный массив arr, заполнит его случайными числами и затем поменяет местами 1 и 3 строки. Результат замены будет выведен на экран.