Maximum/Minimum Véletlenszámgenerátor és a 2. érték Pascal?

Mégegyszer végigmész a tömbön.

Ugyanúgy keresed a maximum és a minimum értékeket, de ha azok egyenlőek a korábbi maximum/minimum értékkel, akkor nem tárolod el.

(max -ban tároltad el a korábbi max-ot, max2-ben pedig a második legnagyobbat keresed)

if (tomb[i]>max2) AND (tomb[i]<>max) then max2:=tomb[i];