нужно сделать и отправить.

Question

Информатика: нужно сделать и отправить.

neynik · Accepted Answer

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

MOGZ ответил