Нужно условие Опции

[Mr.Dmitry]

Народ памогите нужно такое условие.
Есть 3 пременных генерирующияся случайным образом от 0 до 1.Нужно чтобы только одна переменная была равна 1 а все остальные 0.

[Бравый генерал]

Объедини эти три переменных в массив:

a: Array [0..2] of Byte;

И задать их значения так, как ты хочешь, можно таким образом:

a[Random(3)]:=1;

Пояснение: только одна из этих трех переменных - причем случайная - станет равной единице, остальные останутся по умолчанию нулями. Если же по умолчанию нулями они не являются, то перед тем присваиванием напиши:

fillchar(a,SizeOf(a),0);

P.S. Ты наверно хотел сказать: "Народ памогите, есть такое вот условие, нужно решение"? Я правильно тебя понял в этот раз?