Форум программистов [Powered by Invision Power Board]

Код

uses crt;
const n=10;
var i,j,k: Integer;
    a,b,c: array [1..10,1..10] of Real;
    sum1,sum2,s: Real;
begin
  clrscr;
  randomize;
  for i:=1 to n do
  for j:=1 to n do
  begin
    a[i,j]:=Random(11); {ot 0 do 10}
    b[i,j]:=Random(11);
  end;
  {vivod matrizi A:}
  writeln('matriza #1');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write('  ',a[i,j]:5:2);
    writeln;
  end;
  writeln;
  {vivod matrizi B}
  writeln('matriza #2');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write('  ',b[i,j]:5:2);
    writeln;
  end;
  writeln;
  sum1:=0;
  for i:=1 to n do
  for j:=1 to n do
  if i=j then
  begin
    sum1:=sum1+a[i,j];
    sum2:=sum2+b[i,j];
  end;
  writeln('sled matrizi #1: ',sum1:5:2);
  writeln('sled matrizi #2: ',sum2:5:2);
  writeln;
  if sum1<sum2 then
  begin
    writeln('kvadrat 1-oi matrizi');
    for i:=1 to n do
    for j:=1 to n do
    begin
      s:=0;
      for k:=1 to n do
        s:=s+a[i,k]*a[k,j];
      c[i,j]:=s;
    end;
  end
  else
  begin
    writeln('kvadrat 2-oi matrizi');
    for i:=1 to n do
    for j:=1 to n do
    begin
      s:=0;
      for k:=1 to n do
        s:=s+b[i,k]*b[k,j];
      c[i,j]:=s;
    end;
  end;
  {vivod matrizi C}
  for i:=1 to n do
  begin
    for j:=1 to n do
      write('  ',c[i,j]:5:2);
    writeln;
  end;
  readln;
end.