XProfan

WindowTitle "Lineare Häufigkeitsverteilung in k% Klassen im Bereich low% bis high%"
font 2:randomize:cls rnd(8^8)
' Quelle: Ein vom Wind aus Richtung Westen herbeigetragener Zettel
var k%=20 : var low%=10 : var high%=99
declare h%[k%-1]

WhileLoop 0,k%-1

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

Endwhile

Waitinput