Дан двумерный массив 5х6 поменять местами средние столбцы - Pascal ABC

Формулировка задачи:

Дан двумерный массив 5х6 поменять местами средние столбцы. Желательно с процедурами init,print,swap. Пример 1 2 3 4 5 6 9 8 7 6 5 4 5 4 8 3 8 9 ответ 1 2 4 3 5 6 9 8 6 7 5 4 5 4 3 8 8 9

Решение задачи: «Дан двумерный массив 5х6 поменять местами средние столбцы»

Листинг программы

const n=5;m=6;
type mas=array[1..n,1..m] of integer;
var a:mas;j,mm:integer;
procedure init(var x:mas);
var i,j:integer;
begin
 for i:=1 to n do
  for j:=1 to m do
   x[i,j]:=random(11)
end;
procedure print(x:mas;mm:string);
var i,j:integer;
begin
 writeln(mm,':');
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:3);
   writeln
  end;
 writeln
end;
procedure insertt(var x:mas;st1,st2:integer);
var i,temp:integer;
begin
   for i:=1 to n do
     begin
       temp:= a[i,st1];
       a[i,st1]:=a[i,st2];
       a[i,st2]:=temp
     end
end;
begin
 init(a);
 print(a,'A');
 insertt(a,m div 2,m div 2+1);
 print(a,'A''');
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal ABC. Переменные:

n - размер первого измерения массива (5);
m - размер второго измерения массива (6);
a - двумерный массив, который нужно изменить (массив целых чисел размером 5х6);
j - переменная для итерации по второму измерению массива;
mm - переменная для итерации по первому измерению массива;
i - переменная для итерации по первому измерению массива;
temp - временная переменная для хранения значения, которое нужно поменять местами;
st1, st2 - координаты столбцов, которые нужно поменять местами. Процедуры:
init - инициализирует массив случайными значениями;
print - выводит содержимое массива на экран;
insertt - вставляет значение в определенную ячейку массива. В начале кода определяются константы n и m, которые задают размеры массива. Затем определяется тип mas, который представляет собой двумерный массив целых чисел. Далее определяются переменные a, j, mm, i, temp и st1, st2. Переменная a содержит массив, который нужно изменить. Переменные j и mm используются для итерации по второму и первому измерениям массива соответственно. Переменная i используется для итерации по первому измерению массива. Переменная temp используется для временного хранения значения, которое нужно поменять местами. Переменные st1 и st2 задают координаты столбцов, которые нужно поменять местами. Затем следует процедура init, которая инициализирует массив случайными значениями. Внутри этой процедуры происходит итерация по всем ячейкам массива и присваивание им случайных значений от 11 до 100. После этого следует процедура print, которая выводит содержимое массива на экран. Внутри этой процедуры происходит итерация по всем ячейкам массива и вывод их значений на экран через пробел. Затем идет процедура insertt, которая вставляет значение в определенную ячейку массива. Внутри этой процедуры происходит итерация по первому измерению массива и замена значения в ячейке, координаты которой задаются переменной st1, на значение из ячейки, координаты которой задаются переменной st2. В конце кода вызываются процедуры init, print и insertt. Таким образом, данный код меняет местами средние столбцы двумерного массива размером 5х6.