Question

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

Answer 1

PascalABC.NET 3.3

begin
  var m:=ReadInteger('m =');
  var n:=ReadInteger('n =');
  Writeln('Массив:');
  var d:=MatrRandom(m,n,0,10).Println(5);
  var mn:=d.ElementsByRow.Min;
  writeln('min = ',mn);
  var b:=d.ElementsByRow.Where(x->x<>mn).Average;
  writeln('среднее значение среди элементов, не совпадающих с минимальным = ',b);
end.

Пример:
m = 3
n = 5
Массив:
   10    1    7    4    4
    3    3    6    8    8
   10    1    2    3   10
min = 1
среднее значение среди элементов, не совпадающих с минимальным = 6