Дан массив из десяти целых чисел. Определите, сколько элементов этого массива имеют минимальное значение!!!(именно минимальное) составить...

Потом считаете сколько элементов равны минимальному

Спасибо огромное!!!…

for i:=1 to 10 do

if a[i]=min then count:=count+1;

Вот так

//PascalABC.NET//Версия 3.3, сборка 1634 (14.02.2018)begin  var a:=ReadArrInteger(10);   Println('Количество минимальных:',a.Where(t->t=a.Min).Count)end.Пример:1 4 5 1 3 4 7 1 5 2Количество минимальных: 3