поиск максимального элемента

[счастливая]

Опишите на языке программирования алгоритм поиска максимального из тех элементов заданного целочисленного массива размером 30 элементов, которые встречаются более одного раза.

[Dr.Badnezz]

Const
 X = 30;
 
var
 max: integer;                //Макс. элемент
 a: array[0..X] of integer;   //Массив от 0 до 30
 i,j: integer;
begin
cls;
    for i := 0 to X do begin
     a[i] := i+2;
    end;
    
    for j := 0 to X do begin
      //Если максимальный элемент меньше текущего то...
      if (max < a[j]) then begin
          //максимальный элемент равен текущему
          max := a[j];
      end;
    end;
    //Выводим максимальный элемент
    WriteLn('Максимальный элемент:', max);
end.

[Hacker19_90]

Ток добавить надо блок на проверку колличество вхождений элемента в массив!

    chislo := 0;
    for i := 1 to X do
    begin
        chislo := Massiv[i];
        for i := 1 to X do
            begin
                  if Massiv[i] = chislo then
                  begin
                        Inc(Flag);
                        if Flag > 1 then
                        begin
                             Flag := 0;
                             if Max < chislo then
                                 Max := chislo;
                        end;
                  end;
            end;
    end;

[счастливая]

спасибо большое что откликнулись, я знаю как это сделать в отдельности, но вот как в одну вогнать????(((((((

[Hacker19_90]

Что именно вогнать? :D
P.S.: go to ICQ