Целочисленный массив. Элементы, которые встречаются более одного раза!

[Алина18]

помогите,пожалуйста, решить задачу!
очень надо!

Найти максимальный из тех элементов заданного целочисленного массива размером 30 элементов, которые встречаются более одного раза!

заранее спасибо!

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=100937

[Stilet]

Что-то в этом роде?

MODULE ObxHello0;

    IMPORT StdLog,ObxRandom,Integers;
   VAR a:ARRAY(30) OF INTEGER;

    PROCEDURE Массив;
    VAR i:INTEGER;
    BEGIN
     StdLog.Clear;
     FOR i:=0 TO LEN(a)-1 DO
       a[i]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
        StdLog.Real(a[i]); 
        StdLog.Ln;    (* вывод строки и 0DX в рабочий журнал *)
     END;
    StdLog.Ln;
    END Массив;

PROCEDURE повтор(i:INTEGER):BOOLEAN;
VAR k:INTEGER;
BEGIN
 FOR k:=0 TO 29 DO
  IF (a[i]=a[k])&(i#k) THEN
   RETURN TRUE;
  END;
 END;
 RETURN FALSE;
END повтор;

PROCEDURE Do*;
VAR    i:INTEGER; max:INTEGER;
BEGIN 
  Массив();
  max:=-9999;
  FOR i:=0 TO 29 DO
   IF повтор(i) THEN
     IF max<a[i] THEN max:=a[i] END;
   END;
  END;
  StdLog.Ln;
  StdLog.String("Максимальный из повторяющихся = ");    
  StdLog.Int(max);
END Do;

END ObxHello0.