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

[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.

[klem4]

Возможно еще имеется в виду сумма элементов, находящихся на "побочной" диагонали ? (справа на лево)

Код

for i:=1 to n do
  s:=s+x[i,n-i+1];

Сообщение отредактировано: klem4 - 11.04.2005 16:08

[volvo]

Возможно еще имеется в виду сумма элементов, находящихся на "побочной" диагонали ?

Вполне возможно, но какое отношение эта сумма имеет к "следу" матрицы ??