Random -10 +10

[Veiron]

Подскажите как сделать рандом что бы выбирал случайные цифры в пределах от -10 до 10...

Мой пример, только он кажеться немножко накрученным, сдесь с заполнением массива Mas это StrinGrid1:

procedure TForm1.Button1Click(Sender: TObject);
var ii,jj:Integer;
begin

begin
for ii:=0 to 2 do
for jj:=0 to 4 do

if (FloatToStr(Int(2*random))) = '1' then
begin
Mas.Cells[ii,jj]:=FloatToStr(Int(10*random));
end
else
begin
Mas.Cells[ii,jj]:=FloatToStr(Int(-10*random));
end;
end;

За одно как сделать что бы рандомом например что бы заполнялся массив заранее заданными именами или для этого мой вариант больше подходит?

[kommunist]

Сообщение от Veiron

Подскажите как сделать рандом что бы выбирал случайные цифры в пределах от -10 до 10...

random(21) - 10