Все очень просто. С помощью алгоритма бинарного поиска находите сначало первое число, потом второе.
Разница их индексов и будет искомым количеством. В завимости от точной постановки может нужно будет убрать еденицу.
Подозреваю что язык паскаль. Тогда код поиска будет подобен этому.
{foo — искомая величина. а и б — границы поиска}
procedure Find(foo: integer; a: integer; b: integer);
var c: integer;
begin
if (b-a) > 1 then
begin
c:= (a+b) div 2;
find(foo,a,c);
find(foo,c,b);
end else
begin
if (array_[a] = foo) then Result := a;
if (array_[b] = foo) then Result := b;
end;
end;