Ответы
Ответ дал:
0
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandomInteger(30, -10, 10);
a.Println;
var max:=a.Max;
Println(a.Where(x -> x=max).Count);
end.
при 10 редка вероятность больше 1 максимума
begin
var a := ArrRandomInteger(30, -10, 10);
a.Println;
var max:=a.Max;
Println(a.Where(x -> x=max).Count);
end.
при 10 редка вероятность больше 1 максимума
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад