Question

Задан массив x состоящий (100) заполненный случайными числами от 1 до 50. Найти сколько раз встречается min элементов (количество)

Answer 1

===== PascalABC.NET =====

begin

 var x := ArrRandom(100, 1, 50);

 x.Println;

 Println('Минимальный элемент встречается',

     x.Count(p -> p = x.Min), 'раз(а)')

end.