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

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.

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.