7. Исследуйте работу функции random, запустив многократно на выполнение программу: program n_8; var x, n: integer; begin writeln ('Исследование функции random'); randomize (*для генерации различных случайных чисел при каждом запуске программы*); write ('Введите х>>'); readln (x); write ('Введите п>>'); readln (n); writeln ('random(', x, ')=', random(x)); writeln ('random(', x, ')+', n, '=', random(x)+n) end.

Ответ: Программа демонстрирует работу функции random и её зависимость от аргумента.

Описание работы программы:

• Программа запрашивает у пользователя два целых числа: x и n.
• Затем она выводит случайное число, сгенерированное функцией random(x).
• После этого она выводит сумму этого случайного числа и числа n.
• Функция randomize используется для инициализации генератора случайных чисел, чтобы при каждом запуске программы генерировались разные последовательности случайных чисел.

Пример выполнения программы:

Введите х>> 10
Введите п>> 5
random(10)= 3
random(10)+5= 8

В этом примере:

• Пользователь ввел x = 10 и n = 5.
• Функция random(10) сгенерировала случайное число 3.
• Программа вывела сумму 3 + 5 = 8.

Ответ: Программа демонстрирует работу функции random и её зависимость от аргумента.