А вот так ?
Local a:Int = Rand(-100, 100)
Local s:Int = -1
a = (Abs(a) + s) * Sgn(a)
Это код на БМаксе.
Abs(x) - возвращает модуль числа.
Sgn(x) - возвращает знак числа.
Я оперирую с челыми числами, так как для процессора это гораздо быстрее...
Уже опередили! )))