===== PascalABC.NET =====
begin
var x := ArrRandom(100, 1, 50);
x.Println;
Println('Минимальный элемент встречается',
x.Count(p -> p = x.Min), 'раз(а)')
end.
