Сумма матрицы и гл.диагонали

Serjant0007

Дана квадратная матрица. Найти: сумму элементов этой матрицы; сумму элементов главной диагонали. Спасибо
1 ответ

Serjant0007

const
  n = 5;
var
  Matr: Array[1..n, 1..n] of Integer;
  SummaMainD, SummaMatr: Integer;
  i, j: Byte;
begin
  Randomize;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(20);
      if (i = j) then
        Inc(SummaMainD, Matr[i, j]);
      Inc(SummaMatr, Matr[i, j]);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln('Сумма главной диагонали: ', SummaMainD);
  writeln('Сумма всех элементов: ', SummaMatr);
end.