Найти сумму указанных элементов матрицы - Turbo Pascal

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

Для квадратного массива размера nxn n-нечетное, найти сумму указанных элементов, указаные элементы заменить на 0. Вывести новый массив

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

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

program pr1;
 
uses
  crt;
 
var
  a: array [1..100, 1..100] of integer;
  n, i, j, sum: integer;
 
begin
  clrscr;
  randomize;
  writeln('n=');
  readln(n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
      write(a[i, j]:8);
    end;
    writeln;
  end;
 
  sum:=0;
  for i:=1 to n div 2 do
  begin
    sum:=sum+a[i,i]; // диагональные элементы
    a[i,i]:=0;
  end;
  
  for i:=n div 2 + 1 to n do  // остальные закрашенные
    for j:=n div 2 + 1 to n do
    begin
      sum:=sum+a[i,j];
      a[i,j]:=0;
    end;
  
 
  writeln('sum=', sum);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]:4);
    end;
    writeln;
  end;
  readln;
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных, включая работу с матрицами. Переменные в данном коде имеют следующие значения и назначения:

a - матрица размером от 1 до 100 на 1 до 100, содержащая целые числа.
n - номер строки, с которой начинается вывод информации о матрице.
i и j - индексы строк и столбцов матрицы.
sum - сумма элементов матрицы. В начале программы выводится запрос на ввод числа строк матрицы n. Затем происходит инициализация матрицы случайными числами от 0 до 99. Далее происходит суммирование элементов матрицы, начиная с главной диагонали и заканчивая остальными элементами. После этого происходит вывод информации о матрице: суммы элементов и значений элементов матрицы. Затем программа завершается, и пользователю предлагается ввести дополнительные данные для продолжения работы с матрицей.