Найти наиболее часто встречающуюся в массиве цифру

[igor31]

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

[Meteo]

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

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

[igor31]

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

ну в делфи я равположить масив по возростанию ещё смогу а вот с циклом у меня возникли проблемки как его записать ? нужен код цикла

однако спасибо за посказку

[Хыиуду]

Код: Выделить всё

curr_value=A[1]; curr_count=1;
max_value=A[1]; max_count=1;
for i:=2 to N do
begin
   if A[i]=curr_value then inc(curr_count)
   else begin
      if curr_count>max_count then begin max_count:=curr_count; max_value:=curr_value; end;
      curr_count:=1; 
      curr_value:=A[i];
   end;
end;