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