[honestly]

Заданы три матрицы А(третьего порядка), В(второго порядка) и С(третьего порядка). Найти максимальное из трех чисел x, y, z, где x - след матрицы А, у - след матрицы В, z - след матрицы С.(Следом матрицы называется сумма элементов главной диагонали). Вычисление следа матрицы оформить в виде процедуры.

[Aristarh Dark]

И?
За тебя написать чтоль?
Где наработки???

[honestly]

сорри, завтра зачёт все задачи сам не успеваю сделать. да и затруднение в этой

[Aristarh Dark]

В чем конкретно затруднения-то?
Подсчет суммы элементов главной диагонали?

[honestly]

Найти максимальное из трех чисел x, y, z и Подсчет суммы элементов главной диагонали

[ART]

Код:

type 
 TMatrix = array of array of real;

function Trace(const Matrix: TMatrix): real;
var
 i: integer;
begin
 Result := 0;
 for i := 0 to High(Matrix) do
  Result := Result + Matrix[i, i];
end;

function Max(const a, b: Real): Real;
begin
 Result := b;
 if a > b then Result := a;
end;

function getMaxTrace(const A, B, C: TMatrix): Real;
var
 ATrace, BTrace, CTrace: Real;
begin
 ATrace := Trace(A);
 BTrace := Trace(B);
 CTrace := Trace(C);
 Result := Max(Max(ATrace, BTrace), CTrace);
end;