Клавдий 26 ноября 2019 в 11:49
Дан масив из 10 чисел опредилите сколько элиментов этого масива имеют наибольше значение
Дан масив из 10 чисел опредилите сколько элиментов этого масива имеют наибольше значение
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandomInteger(30, -10, 10);
a.Println;
var max:=a.Max;
Println(a.Where(x -gt; x=max).Count);
end.
при 10 редка вероятность больше 1 максимума
begin
var a := ArrRandomInteger(30, -10, 10);
a.Println;
var max:=a.Max;
Println(a.Where(x -gt; x=max).Count);
end.
при 10 редка вероятность больше 1 максимума
Компьютеры и вычисления
426
0
Для комментирования необходимо зарегистрироваться на сайте