Как задать диапозон в Random?!

[Npwas]

Вот тут текст программы который написал, в принципе хочется узнать как можно указать диапозон в random, чтобы комбинировало как отрицательные так и положительные числа. Так только положительные комбинирует, а если переменной "r" присваиваю отрицательное значение то числа через чур большие. (Просьба не советовать изменить тип данных, ибо это не оригинально).

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const r=10; n=20;
      type
      mas=array[1..n] of Int64;
var
   a:mas;
    i,b:Integer;

begin
 b:=5;
 Randomize;
  for i:=1 to n do 
   begin
    a[i]:=Random(r);
    Write('',a[i]:3)
   end;
Readln;
end.

Заранее благодарю!!!



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VIK_aka_TOR]

a[i]:=Random(51) - 25;

рандомом получаем числа от 0 до 50 отнимаем 25 и получаем числа от -25 до 25

[Npwas]

А существует тольк такой математический выход в этой ситуации или может какие-нибудь ф-ции для этого есть ?!

[VIK_aka_TOR]

про функции собственно таким вопросом не задавался... обычно такого варианта действий хватало... ну.. гугл в помощь... может что и найдешь...

[Npwas]

Спасиб за помощь!!!

[Npwas]

Если несложно, то можешь посмотреть и это
http://programmersforum.ru/showthrea...891#post918891

[TinMan]

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

А существует тольк такой математический выход в этой ситуации или может какие-нибудь ф-ции для этого есть ?!

Нет и не может быть (пока люди сохраняют здравый смысл), по крайней мере наряду с обычным Random. Для этого есть арифметические действия, и этого вполне достаточно для нормального человека. Когда тебе надо посчитать a*sin(x) - то что ли ищешь функцию SinTimesA(a,x)? Набор библиотечных функций не должен быть избыточным. А для простейших действий есть арифметика.