1. составить программу для вычисления элементов матрицы ү по
известным элементам вектора х. у ij= e^sin(xixj) , , i.j=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.