Есть ли функция, возвращающая случайное значение из множества integer? - PascalABC.NET

Есть ли функция, возвращающая случайное значение из множества integer? Если нет, каков принцип написания такой подпрограммы?

Листинг программы

const z:array[0..1] of integer=(-1,1);
var x:integer;
begin
randomize;
x:=random(maxint)*z[random(2)];
write(x);
end.

Объяснение кода листинга программы

Объявляется константа z типа массив из 2 элементов типа integer.
Инициализируется переменная x типом integer.
Выполняется процедура randomize, которая инициализирует генератор случайных чисел.
Вычисляется выражение random(maxint), которое возвращает случайное число в диапазоне от 0 до maxint.
Результат умножается на значение, полученное из массива z по случайному индексу в диапазоне от 0 до 1.
Полученное значение записывается в переменную x.
Выводится значение переменной x.

Оцени полезность:

11 голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы