Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями - Free Pascal

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

Написать программу, меняющую в квадртаном массиве половину строки элементов, параллельной главной диагонале над ней, с такой же половиной ниже побочной.

Решение задачи: «Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями»

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

procedure swp(var a, b: Integer); var t: Integer; begin t:=a; a:=b; b:=t; end;
const n=5;
var
  a: array [1..n,1..n] of Integer;
  i, j: Integer;
begin
  ...
  for i:=1 to n div 2 do swp(a[i,n-i],a[1+n-i,n-i]);
  ...
end.

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

В данном коде используется процедура swp, которая меняет местами два указанных элемента массива a. Это делается с помощью временной переменной t, которая запоминает значение первого аргумента (a), после чего этот аргумент присваивается значение второго аргумента (b), а второму аргументу присваивается значение, которое было у первого аргумента до вызова процедуры (т.е. значение переменной t). Также в коде присутствует массив a размером n на n, в котором и происходят все необходимые операции. В первой строке цикла for перебираются все элементы массива a от начала до середины (так как длина массива n / 2). Внутри цикла вызывается процедура swp, которая меняет местами элементы a[i,n-i] и a[1+n-i,n-i]. Первый аргумент — это элемент главной диагонали, второй — элемент побочной диагонали. Таким образом, после выполнения цикла все элементы массива a будут поменяны местами в соответствии с заданными условиями.