Энциклопедия Turbo Pascal. Главы 5-8
Страница 7. Мода

Мода

     Модой выборки называется значение, которое встречается боль-
шее число раз в выборке. Например, в наборе значений
    1 2 3 4 5 6 7 8 9 3 6 6
модой является число 6,  поскольку оно встречается три раза. Мода
может иметь несколько значений. Например, в выборке значений

    10 20 30 40 50 60 70

имеется две моды (30 и 60),  поскольку каждая из них  встречается
по два раза.
     Результатом функции "FindMode" является мода  выборки.  Если
имеется  несколько значений моды,  то в результате будет получено
последнее значение.

    { поиск моды }
    function FindMode(data: DataArray; num: integer); real;
    var
      t, w, count, oldcount: integer;
      md, oldmd: real;

    begin
      oldmd := 0; oldcount := 0;
      for t := 1 to num do
      begin
       md := data[t];
       count := 1;
       for w := t+1 to num do
         if md=data[w] then count := count+1;
         if count>oldcount then
         begin
           oldmd := md;
           oldcount := count;
         end;
       end;
       FindMode := oldmd;
    end; {  конец процедуры поиска моды }