Генератор случайных чисел выдает случайное натуральное число. Ограничение диапазона указывается в скобках после команды random. Так например если необходимо сгенерировать числа в диапазоне [5;15] команду следует прописать так: amass[i] : = random(11) + 5. Тогда если генерируется число 0 к нему прибавляется 5 получается нижняя граница диапазона, если же 10 + 5, получается 15 - верхняя граница диапазона. Как необходимо прописать команду чтобы генерировались числа в диапазоне [-10;15]?


BobbyFresnel: А если у Вас PascalABC.NET, забудьте все эти нелепые расчеты, и просто пишите Random(-10, 15)

Ответы

Ответ дал: John339
0

amass[i] : = random(26) - 10.

Тогда, если генерируется число 0, из него вычитается 10  и получается нижняя граница диапазона, если же 25 - 10, получается 15 - верхняя граница диапазона.


Аноним: Не очень понимаю
John339: Подогнал схему в условии под задачу, вот и всё)
Аноним: VAR mass : aray [1..15] of integer;
i := integer;
BEGIN
for i := 15 to 1 do readln(mass[i]);
max := mass[ 0 ];
for i := 1 to 15 do
if mass > max then max := mass[i];
for i := 1 to 15 do
if (mass[i] mod 2 = 0) then mass[i] := max;
for i := 1 to 15 do write (mass[i], ‘ ‘);
END.
Аноним: Что именно то я вообще не шарю
Аноним: Не то
Аноним: i: byte; {индекс элементов массива}
ввод с клавиатуры
for i:=1 to N do read(amass[i]);
ввод массива случайным образом
randomize; {генератор случайных чисел}

for i:=1 to N do amass[i]:=random(10); {элементу присваиваем случайное целое
в диапазоне 0 до 9 включительно}
Аноним: Решишь дам еще 90 баллов
John339: у тебя нет 90 баллов
Аноним: Ну ладно 35)
Аноним: Мне реально срочно нужно
Вас заинтересует