Составьте программу, которая в массиве, состоящем из 20 элементов, определяет сколько элементов имеют минимальное значение.

begin var a := ArrRandom(20, 10, 15); var min:= a.Min; Println('Массив:',a.JoinToString); Println('Количество:',a.Count(x->x=min)); end.

Примечание:

ArrRandom(n, a, b) --- возвращает одномерный массив длиной n, заполненный случайными целыми значениями в диапазоне от a до b.

Пример работы: