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

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

Вычислить сумму элементов главной и побочной диагоналей матрицы С (6,6).

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

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

program Project1;
const n=6;
var
  c:array [1..n,1..n] of integer;
  i,j,sumg,sump:integer;
begin
  randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      c[i,j]:=random(10);
      write(c[i,j]:3);
      end;
    writeln;
  end;
 
  sumg:=0; sump:=0;
  for i:=1 to n do begin
    sumg:=sumg+c[i,i];
    sump:=sump+c[i,n-i+1];
  end;
 
  writeln('сумма главной диагонали равна ',sumg);
  writeln('сумма побочной диагонали равна ',sump);
end.

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

Объявление переменных и массива — c:array [1..n,1..n] of integer; - массив c размером n на n для хранения чисел — i, j: integer; - переменные для хранения индексов — sumg, sump: integer; - переменные для хранения суммы главной и побочной диагоналей
Заполнение массива c случайными числами — for i:=1 to n do begin — for j:=1 to n do begin — c[i,j]:=random(10); - присваивание случайного числа из диапазона 0..9 — write(c[i,j]:3); - вывод числа на экран, при этом число будет выводиться в 3 символа — end; — writeln; - переход на новую строку end;
Вычисление суммы главной и побочной диагоналей — sumg:=0; sump:=0; - инициализация суммы главной и побочной диагоналей равными нулю — for i:=1 to n do begin — sumg:=sumg+c[i,i]; - добавление элемента главной диагонали к сумме — sump:=sump+c[i,n-i+1]; - добавление элемента побочной диагонали к сумме end;
Вывод результатов — writeln('сумма главной диагонали равна ',sumg); - вывод суммы главной диагонали — writeln('сумма побочной диагонали равна ',sump); - вывод суммы побочной диагонали