КОМЕКТЕСНДЕРШ КАЗАКТАР БЖБ

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 30 ИЗ ЦЕЛ;
  сч, число: ЦЕЛ;
  найдено: КЛЮЧ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 65)) + 20;
    Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0)
  КОН;
  Вывод.Цепь("^");
  число := Приём.Число();
  Вывод.Цепь("^");
  найдено := ОТКЛ;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > число ТО
      Вывод.ЧЦел("%d ", массив[сч], 0, 0, 0);
      ЕСЛИ НЕ найдено ТО найдено := ВКЛ КОН
    КОН
  КОН;
  ЕСЛИ НЕ найдено ТО Вывод.Цепь("нет") КОН

КОН Задание.

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