Розв’язок задачі з Абрамова №699

Всі умови | Умова: Дано квадратні матриці А і В порядку n. Отримати матрицю АВ-ВА. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №699)

program Pr699;
var
 A,B,C,D,E:array [1..50,1..50] of integer;
 i,j,k,n: integer;
begin
readln(n);

  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      A[i,j]:=random(50);
      B[i,j]:=random(50);
    end;
  end;


  for i:=1 to n do
  begin
    for j:=1 to n do
      write(A[i,j],' ');
    writeln;
  end;
  readln;

   for i:=1 to n do
      begin
       for j:=1 to n do
      write(B[i,j],' ');
    writeln;
  end;
  readln;

  for i:=1 to n do
    for j:=1 to n do
    begin
    C[i,j]:=0;
      for k:=1 to n do
      C[i,j]:= C[i,j] + A[i,k]*B[k,j];
    end;

  for i:=1 to n do
    for j:=1 to n do
    begin
    D[i,j]:=0;
      for k:=1 to n do
      D[i,j]:= D[i,j] + B[i,k]*A[k,j]
    end;
   for i:=1 to n do
    for j:=1 to n do
    E[i,j]:= C[i,j]-D[i,j];

  for i:=1 to n do
  begin
    for j:=1 to n do
      write(E[i,j],' ');
    writeln;
  end;
  readln;
end.