// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(4,4,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsByRow.Where(t->t.Between(-10,5) and t.IsEven); Writeln('На интервале [-10;5] четных элементов ',s.Count, ', их сумма равна ',s.Sum); var vc:=a.Cols.Select(t->t.Sum); Write('Вектор сумм по столбцам: '); vc.Println; Writeln('Среднее арифметическое положительных равно: ', a.ElementsByRow.Where(t->t>0).Average); Writeln('В третьем столбце сумма элементов равна ', a.Col(2).Sum,', произведение равно ', a.Col(2).Aggregate(1,(p,q)->p*q))end.
Пример*** Исходная матрица *** 27 -87 73 -6 48 -50 75 -32 4 92 -84 85 27 4 31 -63----------------На интервале [-10;5] четных элементов 3, их сумма равна 2Вектор сумм по столбцам: 106 -41 95 -16Среднее арифметическое положительных равно: 46.6В третьем столбце сумма элементов равна 95, произведение равно -14256900