// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var rmatr:=MatrRandom(n,m,-99,99); rmatr.Println(4); Writeln(4*m*'-'); var max:=rmatr.ElementsByRow.Max; var s:=0; foreach var row in rmatr.Rows do if row.Contains(max) then s+=row.Sum; Writeln('Сумма равна ',s)end.
ПримерКоличество строк и столбцов в матрице: 8 7*** Исходная матрица *** -50 -48 6 5 54 -16 42 -96 -23 -35 46 -39 -44 -15 2 -67 99 50 -53 68 -61 -77 -13 -76 -59 38 -20 4 97 -82 -1 20 -81 -77 -2 -51 87 34 -5 14 -60 91 -53 24 2 98 -98 29 -84 60 28 18 68 8 28 -73----------------------------Сумма равна 38