Certo, esiste una via più semplice. E' la strada seguita da uno dei più famosi algoritmi di ordinamento non basati sul confronto: il counting sort.
Ti crei un array di 90 elementi ed ogni volta che introduci un numero X vai ad aumentare di uno il numero inserito nella posizione X-esima dell'array:
codice:
DIM array(1 to 90)
FOR i=1 TO 160
' Introduzione del numero (estratto a caso o inserito da tastiera?)
' Io suppongo introdotto da tatiera
INPUT "Introduci il numero: ", Numero
array(Numero) = array(Numero) + 1
NEXT
' Espongo i risultati
FOR i=1 TO 90
PRINT "Occorrenze del numero "; i; ": "; array(i)
NEXT
Ciao.