Улучшить алгоритм нахождения элемента, чаще всего повторяющегося в возрастающем массиве

[nitrolighter]

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

const m = ...;
n = ...;
type masyv = array [m..n] of integer;
function Daug (a : masyvas) : integer;
var i, r,         {элемент и его значение}
   k,            {какой по счету элемент повторяющийся}
   sk : integer; {количество повторяющихся элементов}
begin
 r := a[m];
 sk := 1; k := 1;
 for i := m + 1 to n do
   begin
     if a[i] = a[i – 1]
       then begin
              k := k + 1;
              if k > sk
                then begin
                       r := a[i];
                       sk := k
                     end
            end
       else k := 1
   end;
 daug := r
end;

Так вот, надо улучшить этот алгоритм так, чтобы улучшенном варианте было на ОДНУ ПЕРЕМЕННУЮ и на одну УПРАВЛЯЮЩУЮ СТРУКТУРУ меньше.
Для справки, Генри Ледгард (автор книг по Паскалю) предложил сотне людей улучшить этот алгоритм, они не сумели, как и я , надеюсь вы будете 101-ми
Буду очень благодарен за помощь

[Utkin]

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

[Alex Cones]

Это замануха. Он думает мы все сейчас ломанемся его улучшать. Типа мы все тут умнее 100 человек.

[nitrolighter]

нет, правда не хотел вас ввести в заблуждение и тем более злорадствовать.. просто у меня в моих заданиях было написано, думал, просто поделится этим фактом

[NeshSoft]

const m = ...;
n = ...;
type masyv = array [m..n] of integer;
function Daug (a : masyvas) : integer;
var i,         {элемент и его значение}
   k,            {какой по счету элемент повторяющийся}
   sk : integer; {количество повторяющихся элементов}
begin
 daug := a[m];
 sk := 1; k := 1;
 for i := m + 1 to n do
   begin
     if a[i] = a[i – 1] then 
         begin
         k := k + 1;
         daug:=daug*round(sk/k-0.5)+a[i]*round(k/sk-0.5);
         sk:=round((sk+k+0.5)/2);    
         end
      else k := 1
   end;
end;

Ну собственно вот

Учим математику, господа.

nitrolighter, на олимпиаду чтоли на какую?

[nitrolighter]

Максим, спасибо большое! Нет не на олимпиаду - это заочная школа программирования..

[Utkin]

Сообщение от NeshSoft

Учим математику, господа.

Там не математика, а логика. Код нужно просто внимательно просмотреть.
Касательно управляющей структуры, если убрать из алгоритма переменную к, то вложенное условие можно не использовать. Поэтому присказка про 100 человек, которые не смогли улучшить алгоритм явный бред (ну не знаю может он не программистам предлагал, а блондинкам...).