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

29 Авг 2019 в 14:42
169 +1
1
Ответы
1

Для заполнения массива случайными числами в диапазоне [-10000; 10000] в Pascal ABC можно воспользоваться следующим кодом:

program RandomArray;
var
arr: array[1..10] of integer; // Задаем размер массива
i: integer;
begin
Randomize; // Инициализируем генератор случайных чисел
// Заполняем массив случайными числами в диапазоне [-10000; 10000]
for i := 1 to 10 do
arr[i] := Random(20001) - 10000;
// Выводим заполненный массив на экран
for i := 1 to 10 do
WriteLn(arr[i]);
end.

Этот код создает массив из 10 элементов и заполняет его случайными числами в диапазоне [-10000; 10000]. Для этого используется функция Random, которая генерирует случайное число от 0 до 20000, после чего вычитается 10000, чтобы получить числа в нужном диапазоне.

20 Апр 2024 в 12:48
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир