В матрице rmatr[n, m] найти сумму элементов строк, в которых расположен элемент с...

Question

В матрице rmatr[n, m] найти сумму элементов строк, в которых расположен
элемент с наименьшим значением (таких элементов в матрице может быть
несколько).
В среде программирования PascalABC.NET

Answer 1

// 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