Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal (33853)

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

Создайте квадратный массив из N строк и N столбцов,состоящий из натуральных чисел.Поверните его на 180 и выведите результат на экран монитьора

Решение задачи: «Создайте квадратный массив и поверните на 180 градусов»

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

program mas;
uses crt;
 
var C:array[1..100] of integer;
 
    i,j,k,n:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva C = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       for j:=1 to n do
       begin
         readln(C[i,j]);
       end;
 
    writeln('Nachalnay matrica');
    for i:=1 to n do
    begin
       for j:=1 to n do
       begin
         write(C[i,j]);
       end;
     writeln;
     end;
 
    for i:=1 to n do
    begin
       for j:=1 to n do
          begin
            k:=c[i,j];
            c[i,j]:=c[n-i+1,n-j+1];
            c[n-i+1,n-j+1]:=c[i,j];
          end;
    end;
   writeln('konechnay matrica');
    for i:=1 to n do
    begin
       for j:=1 to n do
       begin
         write(C[i,j]);
       end;
     writeln;
     end;
readln;
end.

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

Создается переменная C типа array[1..100] of integer, которая представляет собой квадратный массив размером 100x100.
Задается вопрос пользователю о количестве элементов в массиве C, и это значение сохраняется в переменной n.
Пользователю предлагается ввести элементы массива C. Это делается с помощью цикла for i:=1 до n do, в котором выполняется цикл for j:=1 до n do. В каждой итерации пользователю предлагается ввести элемент массива, и этот элемент сохраняется в элементе массива C[i,j].
Выводится начальная матрица C. Для этого используется цикл for i:=1 до n do, в котором выполняется цикл for j:=1 до n do. В каждой итерации выводится элемент массива C[i,j].
Выполняется поворот массива C на 180 градусов. Для этого используется цикл for i:=1 до n do, в котором выполняется цикл for j:=1 до n do. В каждой итерации элементы массива C[i,j] и C[n-i+1,n-j+1] меняются местами, а затем выводится элемент массива C[i,j].
Выводится конечная матрица C. Для этого используется цикл for i:=1 до n do, в котором выполняется цикл for j>=1 до n do. В каждой итерации выводится элемент массива C[i,j].
Запрашивается ввод от пользователя, и программа завершается.