Задача с массивом Опции

[RAPON]

Помогите решить.
В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.

[amega]

не ну вы ребята издеватесь!!!
которая по счету тема задача с масивами!!!!!!!!!!!!!!!!!!!

может не совсем функционально но вот пример реализаци с помощю списка

 Type 
        TPrec=^Trec;
        Trec = record
          inf      :integer;
          count :integer;
          next   :TPrec;
       end;
 const n=100;
Var 
    arr=array [1..n] of integer;
    i:integer;
     start:tprec;
    wp:tprec;


function findrec(elem:integer;var wp:tprec):boolean;
begin
result:=false;
wp:=start;
 while wp<>nil do
   begin
      if wp^.inf=elem then
        begin
         result:=true;  
         exit;
        end;      
      wp:=wp^.next;
  end;
end;

procedure add(elem:integer; var start:tprec);
var 
    Pnew:Tprec;
begin
  new(pnew);
  pnew^.inf:=elem;
  pnew^.count:=1;
  pnew^.next:=nil;
  if start=nil then 
    begin
        start:=pnew;        
    end
  else
    begin   
      pnew^.next:=start;
      start:=pnew;
    end;
end;

begin
 start:=nil;
  {заполнение масива}
   for i:=1 to n do begin
     if findrec(arr(i),wp) then inc(wp^.count)
      else add(arr(i),start);

  {теперь проходиш по списку и виводиш то что нужно}

 while start<>nil do 
    begin
        wp:=start; 
        start:=start^.next;
       dispose(wp);
   end;
end;

зы еще не откомпилирова, откомпилирую исправлю если будут ошибки)

Сообщение отредактировано: amega - 13.04.2009 20:32