//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
Ввод(ЧИСЛО)
Цикл пока ЧИСЛО>0
Вывод(ОстатокОтДеления(ЧИСЛО / 10))
Число = Число / 10
КонецЦикла
Если нет стандарной операции остаток от деления можно посчитать как
ЧИСЛО - ((ЧИСЛО / 10)*10)
Системный блок:
-корпус
-блок питания
-материнская плата
-процессор
-видеокарта
-оперативка
-жесткий диск
-дисководы
Монитор
Мышка
Клавиатура
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20