Вычисление следа матрицы. Опции

[Len]

Вычисление следа матрицы. След - это диагональные элементы матрицы. Матрица должна быть квадратная.
# 3 на 3
При запросе количества строк и столбцов вводить одно число.
n=m
Заполняем матрицу. Вывели на печать матрицу построчно и поэлементно.
Расстояние и по горизонтали и по вертикали одинаковое.
После вывода матрицы на печать, должен быть вопрос: сумму какого следа вы хотите посчитать?

Вот эта программа, ее делал Олег, но тут сразу вычисляется след матрицы и нет вопроса: сумму какого следа нужно посчитать.
Пожалуйста, кто-нибудь доделайте ее:

Код

Program massiv;
uses crt;
var
a:array[1..50,1..50]of real;
i,j,n:integer;
sled:real;
begin
clrscr;
write('Введите размерность матрицы: '); readln(n);
for i:=1 to n do for j:=1 to n do
begin
 write('Введите ',j,' элемент ',i,' строки');
 readln(a[i,j])
end;
For i:=1 to n do
begin
 for j:=1 to n do write(a[i,j]:4:0);
 writeln
end; sled:=0;
for i:=1 to n do sled:=sled+a[i,i];
writeln('След матрицы = ', sled:1:1);
end.

[volvo]

Len,
все совершенно правильно. Не надо ничего придумывать, по определению "Следом" матрицы A (он же Trace A, он же Spur A) называется сумма элементов, расположенных на главной диагонали. Никакого "другого" следа у матрицы нет, и быть не может. Откройте справочник по математике и убедитесь...

[Len]

Мне Олег тоже самое писал: определение следа матрицы, про главную диагональ, что никакого больше следа нет. Но я же не могу переспорить нашу информатичку. Нам так сказали, я еще попробую переспросить, если меня не пошлют подальше. Но пока что, можете сделать, как она просила?
Пожалуйста. :molitva: