PascalABC.NET 3.4, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,4,-20,30);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow.Where(t->t.Between(-4,4)).Sum;
var b:=a.ConvertAll(t->t/s);
Writeln('Полученный массив'); b.Println(15,7)
end.