Есть список с числовыми данными. Нужно вывести число (или числа если их много), которое встречается больше всего раз в этом списке.
Мне важен именно алгоритм.
Я могу конечно пробежаться по списку, посчитать сколько раз встречается каждый элемент и вывести наибольшее из этого нового списка полученного. Но  может быть есть более рациональный способ?

1. сортировка (метод выбирай сам)
2. 
   str_out : string;
  count_out, tmpInt, j : integer;

   str_out := IntToStr(mas[0]);
   tmpInt :=mas[0]
   j :=1;
  count_out :=j
 for i :=1 to count do   begin
   if mas[i]= tmpInt then Inc(j)
  else begin
   if j>count_out then str_out :=IntToStr(mas[i-1]);
   if j=count_out then str_out := str_out+', '+IntToStr(mas[i-1]);
   count_out :=j;
   tmpInt := IntToStr(mas[i-1]);
   j:=1;
  end;
 end;
 write('Числа :'+str_out'+ ' кол-во вхождений '+ IntToStr(count_out));


PS : не помню ф-цию перевода целого в строку (ValStr ?). 
Могут быть ошибки  Набирал в "живую"
PS1 : mas - массив чисел, count - кол-во чесел
 
   

Это сообщение отредактировал(а) greenpc - 17.4.2007, 10:58