Даны матрицы a,b,c размером nxn определяем генератор чисел a+b*c, найти новую матрицу

[farejoker]

Даны матрицы a,b,c размером nxn определяем генератор чисел a+b*c, найти новую матрицу

помогите плииз решить

 

[farejoker]

на паскале abc

 

[Vladimir_S]

помогите плииз решить

на паскале abc

Легко. Только уж извините, но с этим... ну, короче говоря, с лжепаскалем АВС никаких дел не имею и иметь не желаю, поэтому задача решалась (и тестировалась, естественно) на Free Pascal (в Turbo будет так же), а если полезут глюки - я не виноват.

Const
 N=5;
Var
 A,B,C,D:Array[1..N,1..N] of Integer;
 i,j,k:Integer;
Begin
 Randomize;
 Writeln('Matrix A:            Matrix B:            MatrixC:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(20);
     Write(A[i,j]:3);
    end;
   Write('      ');
   For j:=1 to N do
    begin
     B[i,j]:=Random(20);
     Write(B[i,j]:3);
    end;
   Write('      ');
   For j:=1 to N do
    begin
     C[i,j]:=Random(20);
     Write(C[i,j]:3);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Result:');
 For i:=1 to N do
  For j:=1 to N do
   begin
    D[i,j]:=A[i,j];
    for k:=1 to N do D[i,j]:=D[i,j]+B[i,k]*C[k,j];
   end;
 For i:=1 to N do
  begin
   For j:=1 to N do Write(D[i,j]:4);
   Writeln;
  end;
 Readln
End.