Дан массив. Определить количество минимальных элементов массива.

Question

Дан массив. Определить количество минимальных элементов массива.

Answer 1

//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