// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,3,-10,10); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Сумма элементов равна ',a.ElementsByRow.Sum) end.