Question

Нужно написать программу на языке Паскаль​

Answer 1

===== PascalABC.NET =====

uses NumLibABC;

begin

 var n := ReadInteger('n =');

 // матрица А заполняется случайными числами

 var t := MatrRandomReal(n, n, -99, 99);

 t.Transform(p -> Round(p,2));

 var A := new Matrix(t);

 t := nil;

 A.Println(8,2);

 Writeln;

 // Вектор b заполняется случайными числами

 var r := ArrRandomReal(n, -50, 50);

 r.Transform(p -> Round(p,2));

 var b := new Vector(r);

 r := nil;

 b.Println;

 Writeln;

 // Собственно, решение

 var M := A*A*b;

 M.Println

end.