• Дан массив D (m, n). Найти среднее значение среди элементов, не совпадающих с минимальным. Писать как можно подробнее

Ответы 1

  • // PascalABC.NET 3.3, сборка 1599 от 17.12.2017// Внимание! Если программа не работает, обновите версию!begin  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');  Writeln('*** Исходный массив ***');  var d:=MatrRandom(m,n,-99,99);   d.Println(4); Writeln(4*d.ColCount*'-');  var min:=d.ElementsByRow.Min; // значение минимального элемента  Writeln('Искомое среднее: ',d.ElementsByRow.Where(t->t<>min).Average)end.ПримерКоличество строк и столбцов в массиве: 4 7*** Исходный массив ***   7 -31  80  21  38 -36  16  42  93 -11  74  -6  37 -71  15  90 -71 -88 -71  70 -27  12  83  41  79  72  91 -88----------------------------Искомое среднее: 24.5
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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