TP. Наполнение случайными числами"random"

[privatnebank]

С помощью Random наполняю массив случайными числами

Код: [Выделить]

   const
      max=100;
      N=10;
   .................
   .................
   begin
     for i:=1 to N do a[i]:=random(max);
     {И потом выводим это все}
     for i:=1 to N do Write(a[i],' ');
   .................
     
   Как задать диапазон заполнения массива? Например, я хочу, чтобы заполнялось только числами, попадающими в диапазон от -30 до -4?

[Данила]

(-1)*(random(26)+4)

[InfStudent]

Так же как вариант для генерации знакочередующейся z:=random(10)-5. Тогда будет генерироваться последовательность знакочередующаяся

[privatnebank]

С такой формой записи не получилось. Записываю a:=random(10)-5; и выдает ошибку: "Range chek error": 0000:010C.

[InfStudent]

Перед этим поставьте ${R-}. Это вынудит TP отключить проверку
а после можно опять ее включить ${R+}. Что интересно Delphi скушал код на ура

[privatnebank]

Да, действительно, это помогло.