Надо прописать Randomize;
Диапазон от a до b
x:=random(b-a+1)+a;
для начала.
после Главного BEGIN напишите randomize; что бы каждый раз были разные значение.
потом считайте за формулой.
random(max-min+1)+min;
Надо прописать Randomize;
Диапазон от a до b
x:=random(b-a+1)+a;
для начала.
после Главного BEGIN напишите randomize; что бы каждый раз были разные значение.
потом считайте за формулой.
random(max-min+1)+min;