21.01.2007, 09:20
общий
это ответ
Здравствуйте, OperKOT!
Если числа целые, объявляем массив A: array[1..50] of integer - например.
После генерации очередного числа, пусть оно будет в переменной Gen
пишем A[Gen]:=A[Gen]+1
В результате получим массив, содержащий для каждого числа кол-во генераций, т.е. то что и надо.