XProfan

Título de la ventana "Demo: Zweithäufigstes y Zweitwenigstes Element ermitteln"
font 2:randomize:cls rnd(8^8)
' Lineare Häufigkeitsverteilung en k% Klassen en low% a high%
var k%=20 : var low%=10 : var high%=99
declarar h%[k%-1]

WhileLoop 0,k%-1

    h%[&Loop]=rnd(high%-low%+1) + low%
    imprimir &Loop,h%[&Loop]

Endwhile

' Häufigstes Element
declarar max%,maxptr%
max%=0

WhileLoop 0,k%-1

    if h%[&Loop]>max%

        maxptr%=&Loop
        max%=h%[&Loop]

    endif

Endwhile

imprimir
imprimir maxptr%,max%,h%[maxptr%],"  ",
' Zweithäufigstes Element
declarar max2%,maxptr2%
max2%=0

WhileLoop 0,k%-1

    if &Loop<>maxptr%

        if h%[&Loop]>max2%

            maxptr2%=&Loop
            max2%=h%[&Loop]

        endif

    endif

Endwhile

imprimir maxptr2%,max2%,h%[maxptr2%],"   ",
' Wenigstes Element
declarar min%,minptr%
min%=99999

WhileLoop 0,k%-1

    if h%[&Loop]<min%

        minptr%=&Loop
        min%=h%[&Loop]

    endif

Endwhile

imprimir minptr%,min%,h%[minptr%],"   ",
' Zweitwenigstes Element
declarar min2%,minptr2%
min2%=99999

WhileLoop 0,k%-1

    if &Loop<>minptr%

        if h%[&Loop]<min2%

            minptr2%=&Loop
            min2%=h%[&Loop]

        endif

    endif

Endwhile

imprimir minptr2%,min2%,h%[minptr2%]
locate maxptr%+1,10:imprimir "< Maximum"
locate maxptr2%+1,10:imprimir "< Next-to-Max"
locate minptr%+1,10:imprimir "< Minimum"
locate minptr2%+1,10:imprimir "< Next-to-Min"
Waitinput