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

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.

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.