Генерируешь 19 чисел случайным образом, а 20-е высчитываешь как 1200 - сумма первых 19-ти. Все. При вычислении 20-го проверяешь, что если оно равно 0, то, соответсвенно, отнимаешь 1 от 19-го и 20-е ставишь в 1.
Сама генерация - с помощью функции Random^
A[i] := Random(100) + 1; // +1 - что бы гарантированно <> 0.
|