Дана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.

Var a: array [1 ... 100, 1 ... 100] of real; sum: real; i, j, n: integer;

begin

read (n);

sum : = 0;

for i : = 1 to n do

for j : = 1 to n do

begin

read (a[i, j]);

if i = j then sum : = sum + a[i, j];

end;

for i : = 1 to n do

begin

for j : = 1 to n do

write (a[i, j], ' ');

writeln;

end;

writeln (sum);

end.