Напишите программу подсчитывающая количество минимальных элементов в заданном массиве

Question

Напишите программу подсчитывающая количество минимальных элементов в заданном массиве

Comments

типа если массив 5 8 4 8 6 9 67 7 4

---

он должен посчитать количество минималтных (т.е. четверок)

---

и вывести 2?

---

Меня на теме не было сам пытаюсь разобраться... спасибо.

---

Так, не смотри код, он неверный

---

Я сейчас исправлю

---

все

---

спасибо.

Answer 1

Program glg;
var
a:array[1..10] of integer;
min, kol: integer;

begin
i := 0;
kol:=0;
min:= 100000;
while i < 10 do
begin
readln (a[i]);
if a[i] < min then min:= a[i];
end

i:=0;
while i < 10 do
if a[i] = min then kol = kol + 1;
writeln(kol);
end.

Если ошибки будут, пишите в комментарии. Я с телефона писал, мог где-нибудь, да ошибиться. (Написано на Pascal)