Как можно оптимизировать алгоритм?
procedure E(n, m: integer; A, B: tMatrix; var C: tMatrix);
var i, j: integer;
begin
for i:=1 to n do
for j:=1 to m do begin
if i<=j then C[i,j]:=A[i,j] + B[i,j] else C[i,j]:=A[i,j] - B[i,j];
end;
end;
На вход подаются три матрицы. И в зависимости от условия (i<=j
или i>j
) создаётся третья матрица.