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
Answers & Comments
//Версия 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