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

[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

[Lapp]

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

"Заслуженный комбайнер респубилки Иван Петрович Сидоров просит нас передать вторую часть, Adagio ma not tanto, из шестого Брандербургского концерта си-бемоль мажор Иоганна Себастьяна Баха. Для уважаемого Ивана Петровича передаем русскую народную песню Во поле березонька стояла.."
© из анекдота

М

amega если не можешь (или не хочешь) отвечать по делу - будь добр, не флуди..

[amega]

Lapp

я написал решение котрое на мое мнение показалось удобным, если есть проще решение то пожалута выкладывайте , я не чуть не против, но говрить сразу "amega если не можешь (или не хочешь) отвечать по делу - будь добр, не флуди..", это тоже както... да и вче проявился мой флуд?

[RAPON]

да уж
мне ещё и блок схему к этому писать над было..
пришлось второй массив делать..
не очень четко все получилось,зато работает и не так громоздко.

[volvo]

пришлось второй массив делать..

Ты бы указывал, что тебе можно делать, а чего - нельзя. Если элементы исходного массива могут поменять свое положение - то проще всего отсортировать его по возрастанию, и потом найти максимальную повторяющуюся последовательность (в FAQ-е есть функция). Делов на 15 строк.

[Lapp]

вче проявился мой флуд?

Если человек изучает массивы, это стопроценто означает, что ни о каких списках, как и вообще о динамической памяти, он не имеет ни малейшего представления. И даже если бы имел, само то, что он все же хочет по какой-то причине употребить именно массивы, должно же значить что-то. Когда ты попросишь пить, а тебе дадут хлеба - что ты скажешь? Вот и я говорю: флуд .
Не надо обижаться. Просто отвечай по делу. А если так уж надоело - воздержись.. O'kay?

[amega]

O'kay?

ок