Называется моделью
....................................................
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4
1. Моем котел и топор.
2. Кладем топор в котел.
3. Наливаем воду в котел.
4. Ставим котел на огонь.
5. Помешиваем варево.
6. Пробуем.
7. Солим воду.
8. Пробуем.
9. Кладем крупу.
10.Пробуем.
11.Кладем масло.
12.Пробуем.
13.Едим.
PascalABC.NET (версия 3.2, сборка 1370 от 24.12.2016)
<span><span>MatrRandom(m n a b) - </span>Возвращает двумерный массив размера m x n, заполненный случайными целыми значениями от </span>a до b