Prgm
Local a, i, j, nz, m, hlp
ClrIO
Erzeugen der Zufallszahlen
For i, 1, 6
false ® nz
While nz = false
rand(45) ® a[i]
true ® nz
For j, 1, i - 1
If a[i] = a[j]
false ® nz
EndFor
EndWhile
EndFor
Sortieren der Zufallszahlen
Schritt1: Suchen des kleinsten Elements
For i, 1, 5
i ® m
For j, i+1, 6
If a[j] < a[m]
j ® m
EndFor
Schritt2: Plätze werden getauscht
a[m] ® hlp
a[i] ® a[m]
hlp ® a[i]
EndFor
Disp a
EndPrgm
