кстати в задаче был маленький подвох, я только сейчас додумался...
попробуйте запустить вот такой код...
seedrnd millisecs()
Dim Value(20)
For q=0 To 10000
X=Rnd(20)
Value(X)=Value(X)+1
Next
For q=0 To 20
Print q+" возвращалось приблизительно в "+ Value(q)/100+"% случаев..."
Next
WaitKey()
end
оказывается генератор целых случайных чисел освобожден от этого графика распределения вероятностей. Странно почему он дает кривые значения на малых диапазонах... (не считая крайние значения)