PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrGen(5,8,(i,j)->Cos((i+1)*(j+1))+Sin((i+1)*(j+1)));
a.Println(9,5); Writeln(9*a.ColCount*'-');
Writeln('S2 = ',a.Row(3).Sum:8:5)
end.