Как в Pascal ABC заполнить массив случайными числами в диапазоне [-10000; 10000]?

В Pascal ABC для заполнения массива случайными числами из диапазона от -10000 до 10000 можно использовать функцию Random. Она возвращает случайное число, поэтому нужно правильно задать диапазон.

Пример программы:

pascal




program RandomArray;
var
  a: array[1..10] of integer;
  i: integer;
begin
  Randomize; // запуск генератора случайных чисел
  for i := 1 to 10 do
    a[i] := Random(20001) - 10000;
  for i := 1 to 10 do
    Write(a[i], ' ');
end.

Объяснение:

• Randomize запускает генератор случайных чисел с разным начальным значением, чтобы при каждом запуске числа были разными.

• Random(20001) генерирует число от 0 до 20000.

• Чтобы получить диапазон от -10000 до 10000, из результата вычитаем 10000:

  • 0 - 10000 = -10000

  • 20000 - 10000 = 10000

Поэтому формула для любого элемента массива:

pascal




a[i] := Random(20001) - 10000;

заполнит массив целыми случайными числами в нужном диапазоне.