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.
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.