Определить суммы всех элементов матрицы, лежащих на диагоналях - Turbo Pascal

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

Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

Решение задачи: «Определить суммы всех элементов матрицы, лежащих на диагоналях»

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

const
  n = 3;
 
var
  j, i: integer;
  s: real;
  a: array [1..n, 1..n] of real;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random * n;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  s := 0;
  for i := 1 to n do
  begin
    s := s + a[i, i];
    s := s + a[i, n - i + 1];
  end;
  if Odd(n) then 
    s := s - a[n div 2 + 1][n div 2 + 1];
  writeln('Sum: ', s);  
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для определения суммы всех элементов матрицы, лежащих на диагоналях. В начале кода объявляются необходимые переменные: n (количество строк и столбцов матрицы), j и i (индексы строк и столбцов матрицы), s (сумма элементов матрицы), a (массив, в котором хранятся элементы матрицы). Затем следует цикл, который заполняет матрицу случайными числами от 0 до n. Внутри этого цикла происходит итерация по строкам и столбцам матрицы, где каждый элемент массива a[i, j] заполняется случайным числом. После каждой итерации выводится значение элемента матрицы с помощью функции write. После заполнения матрицы происходит расчет суммы элементов, лежащих на диагоналях. Для этого используется два вложенных цикла, которые проходят по всем элементам матрицы. Сумма элементов суммируется с помощью переменной s. В конце кода выводится значение суммы элементов матрицы с помощью функции write. Если количество строк в матрице нечетное, то из суммы вычитается сумма элементов, лежащих на диагонали среднего элемента.