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

Ответы 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
    • Автор:

      ginger
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years