Помогите срочно.в паскале выяснить количество минимальных элементов в массиве a в...

Question

Помогите срочно.в паскале выяснить количество минимальных элементов в массиве a в интервале(-100;100).элементов 15

Comments

Минимальный элемент может быть только один, вы это имели в виду

---

их должно быть больше одного

Answer 1

begin

 var a := ArrRandom(15, -100, 100); a.Println;

 var Min := a[0];

 var Count := 1;

 for var i := 1 to a.High do

   if a[i] = Min then Count += 1

   else if a[i] < Min then begin Min := a[i]; Count := 1 end;

 Print($'Min = {Min}, Count = {Count}')

end.

---