Question

1. Составить программу для вычисления элементов матрицы Ү по
известным элементам вектора Х. У ij= e^sin(xixj) , , i.j=1,2.....l.​

Answer 1

begin

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

 var X := SeqRandom(l, -50, 50).Select(p -> p / 10).ToArray;

 X.Println;

 var Y := MatrGen(l, l, (i, j) -> Exp(Sin(X[i] * X[j])));

 Y.Println(6, 3)

end.