Интересная задача по Делфи

[Romarrio]

Уважаемые программисты,помогите пожалуйста решить вот такую задачу:

В одномерном массиве вещественного типа определить цифру, с которой начинается наибольшее колличество элементов.

Очень нужна помощь) Заранее благодарен)

[Valio]

Ничего интересного. Создаёшь новый массив и откапываешь часто встречающийся. Всё.

[Vaigard]

Создай массив из первых цифр чисел. Элементов будет столько же. А потом найди наибольшее количество повторяющихся элементов.

for i:=1 to 10 do begin
repeat
z:=f[i];
f[i]:=f[i] div 10;
until f[i]=0;
m[i]:=z;
end;

Приблизительный код поиска первых цифр элементов массива f и забивания их в массив m. Здесь пример для 10 элементов в массиве. Правда, он скорее подойдет для byte или word, а у тебя числа real. Слегка сложнее, поправь немного. Z - вспомогательная переменная. Потом найди наибольшее количество повторений. Для удобства, можно отсортировать по возрастанию массив m. И сравнивая количество идущих подряд одинаковых элементов найти искомую цифру.

[Romarrio]

А как найти наибольшее колличество повторяющихся? У меня с этим наибольшие затруднения...

[Romarrio]

Аа....Кажется понял приблизительно....Но вот как это реализовать?
Как сравнить колличество идущих подряд одинаковых элементов?

[Donatello]

ну алгоритм такой. Берешь первый элемент(он является нулевым т.к. массив начинается с нулевого элемента вродебы если не задать иначе) записываешь его в переменную. Потом эту переменную сравниваешь со следующим элементом, если он больше нулевого то его записываешь в переменную, и потом эту переменную опять сравниваешь со след элементом и т.д. до конца. Это если нада найти только максимальное значение массива, а не кол-во макс. Как то так. вот ток помочь реализовать на делфи пока не смогу, на С++ мб смог бы повозившись.

[Romarrio]

Вот макс значение я нашёл бы...А вот колличество максимыальных чёт ума не приложу как сделать(((