Перестановка элементов матрицы - Turbo Pascal

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

Задана матрица Б размера 7X7. Составить программу, осуществляющую перестановку элементов в каждой строке матрицы так, чтобы 1-й элемент строки поменялся с последним, 2-й с предпоследним и т.д.

Решение задачи: «Перестановка элементов матрицы»

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

uses crt;
const n=7;
var b:array[1..n,1..n] of integer;
    i,j,t:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(50);
    write(b[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n div 2 do
 begin
  t:=b[i,j];
  b[i,j]:=b[i,n-j+1];
  b[i,n-j+1]:=t;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln;
 end;
readln
end.

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

Данный код на Turbo Pascal выполняет следующие действия:

Инициализирует переменные: n (количество строк в матрице) и b (массив для хранения чисел).
Очищает экран с помощью функции clrscr.
Выводит сообщение «Исходная матрица».
Заполняет матрицу случайными числами от 1 до 50.
Выводит сообщение «Измененная матрица».
Применяет алгоритм перестановки элементов матрицы. Для этого используется два вложенных цикла: внешний цикл для прохода по строкам матрицы и внутренний цикл для прохода по столбцам матрицы. Внутренний цикл используется для обмена элементов в текущей строке и следующей за ней строке.
Выводит измененную матрицу.
Выводит сообщение «Конец».