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

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

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

и вывести 2?

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

Так, не гляди код, он неправильный

Я на данный момент исправлю

все

спасибо.

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

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

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

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