1. решить матричное уравнение ах=в, где матрица а имеет размерность 6*6 и задается по правилу 1, i> j aij= 2*sin(i+cos( i< =j а столбец свободных членов в имеет размерность 6х1 и задается по правилу bi = 6*ln(1+i). x=a-1*b

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin
  Writeln('Матрица А');
  var A:=new Matrix(MatrGen(6,6,(i,j)->i>j?1.0:2*Sin(i+1+Cos(j+1))));
  A.Println(12,8);
  Writeln('Матрица B');
  var B:=new Matrix(MatrGen(6,1,(i,j)->6*Ln(2+i)));
  B.Println(12,8);
  Writeln('Матрица X'); // X:=A^(-1)xB
  var X:=A.Inv*B;
  X.Println(12,8)
end.