Требуется поменять местами столбцы i и j в двумерном массиве и вывести результат. Размеры массива и числа i

Название: Замена столбцов в двумерном массиве на Pascal

Описание: Для решения этой задачи на языке Pascal можно использовать функцию `swap_columns()`, которая меняет местами указанные столбцы в двумерном массиве.

Вот пример решения задачи на языке Pascal:

pascal

program SwapColumns;



const

  MAX_SIZE = 100; // Максимальный размер массива



type

  Matrix = array[1..MAX_SIZE, 1..MAX_SIZE] of Integer;



procedure SwapColumns(var arr: Matrix; i, j, size: Integer);

var

  temp: Integer;

  k: Integer;

begin

  for k := 1 to size do

  begin

    temp := arr[k, i];

    arr[k, i] := arr[k, j];

    arr[k, j] := temp;

  end;

end;



procedure PrintMatrix(const arr: Matrix; size: Integer);

var

  i, j: Integer;

begin

  for i := 1 to size do

  begin

    for j := 1 to size do

    begin

      Write(arr[i, j], " ");

    end;

    Writeln;

  end;

end;



var

  arr: Matrix;

  size, i, j: Integer;



begin

  Write("Введите размер массива: ");

  Readln(size);



  // Ввод элементов массива

  for i := 1 to size do

  begin

    for j := 1 to size do

    begin

      Write("Введите элемент arr[", i, ", ", j, "]: ");

      Readln(arr[i, j]);

    end;

  end;



  Write("Введите номера столбцов, которые нужно поменять местами (i и j): ");

  Readln(i, j);



  // Проверка корректности введенных номеров столбцов

  if (i > 0) and (i <= size) and (j > 0) and (j <= size) then

  begin

    SwapColumns(arr, i, j, size);



    Writeln("Результат:");

    PrintMatrix(arr, size);

  end

  else

    Writeln("Некорректные номера столбцов!");



end.

Например:

Входные данные:

Введите размер массива: 3

Введите элемент arr[1, 1]: 1

Введите элемент arr[1, 2]: 2

Введите элемент arr[1, 3]: 3

Введите элемент arr[2, 1]: 4

Введите элемент arr[2, 2]: 5

Введите элемент arr[2, 3]: 6

Введите элемент arr[3, 1]: 7

Введите элемент arr[3, 2]: 8

Введите элемент arr[3, 3]: 9

Введите номера столбцов, которые нужно поменять местами (i и j): 1 3

Выходные данные:

Результат:

3 2 1 

6 5 4 

9 8 7 

Совет: Перед выполнением этой задачи необходимо убедиться, что вы понимаете, как работает двумерный массив и как обращаться к его элементам. Также важно проверять корректность введенных номеров столбцов перед вызовом функции `swap_columns()`.

Дополнительное задание:

Напишите программу на языке Pascal, которая меняет местами столбцы с номерами 2 и 4 в двумерном массиве размером 4x4 и выводит результат на экран.