// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(5,4,-5,20); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('a) ',a.ElementsByRow .Where(t->t.Between(0,5) or t.Between(5,15)).Sum); Writeln('б) ',a.Row(2).Min); var b:=a.ElementsByRow.ToArray; Print('в)'); b.Println; Writeln('г) ',a.ElementsByRow.TakeLast(10).Sum)end.
Пример*** Исходная матрица *** 19 -2 17 -1 4 10 9 9 8 15 -1 -1 -3 12 -1 20 10 3 16 13----------------a) 93б) -1в) 19 -2 17 -1 4 10 9 9 8 15 -1 -1 -3 12 -1 20 10 3 16 13г) 68