Вычислить суммы элементов главной диагонали квадратной матрицы

Question

Вычислить суммы элементов главной диагонали квадратной матрицы

Answer 1

program sum_dia;
const r=10;
var a:array[1..r, 1..r] of shortint;
n,i,j:byte;
s:shortint;
begin
randomize;
n:= random(8) + 3;
writeln('Заданная матрица, порядкa ',n,':');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[ i, j ]:=random(21)-10;
write(a[ i, j ]:4);
end;
writeln
end;
s := 0;
for i:= 1 to n do
s:=s + a[ i, i ];
writeln('Сумма элементов главной диагонали: ',s);
end.

Answer 2

var

  n, i, j, summ:integer;

  a:array[1..100, 1..100] of integer;

begin

  write('n = '); readln(n);

  writeln('Исходный массив: ');

  for i := 1 to n do

  begin

    for j := 1 to n do

    begin

      a[i, j] := random(21);

      write(a[i, j]:4);

    end;

    writeln;

  end;

  summ := 0;

  for i := 1 to n do

    summ := summ + a[i,i];

  writeln('Сумма элементов стоящих на главной диагонали равна ', summ);

end.