напиши программу для pascal ABC соблюдая все правила для решения этой задачи 5. Задайте два случайных числа из отрезка [-70; 20] и найдите их среднее арифметическое.

Для решения задачи на языке Pascal ABC, давайте напишем программу, которая будет выполнять следующие шаги:

1. Сгенерировать два случайных числа в пределах от -70 до 20.
2. Вычислить среднее арифметическое этих двух чисел.
3. Вывести результат на экран.

Вот как выглядит программа:

program AverageOfTwoRandomNumbers;

uses crt; // Подключаем библиотеку для работы с консолью

var
  a, b: Integer; // Переменные для хранения случайных чисел
  average: Real; // Переменная для хранения среднего арифметического

begin
  Randomize; // Инициализация генератора случайных чисел
  
  // Генерация двух случайных чисел из отрезка [-70; 20]
  a := Random(91) - 70; // Random(91) генерирует число от 0 до 90, затем мы вычитаем 70
  b := Random(91) - 70; // То же самое для второго числа

  // Вычисление среднего арифметического
  average := (a + b) / 2;

  // Выводим результаты на экран
  WriteLn('Первое случайное число: ', a);
  WriteLn('Второе случайное число: ', b);
  WriteLn('Среднее арифметическое: ', average:0:2); // Форматируем вывод с двумя знаками после запятой
  
  ReadLn; // Ожидаем нажатия клавиши для завершения программы
end.

Пояснение:

1. Подключение библиотеки: uses crt; — это нужно для работы в консоли.
2. Объявление переменных:
   • a и b — для хранения случайных чисел.
   • average — для хранения результата вычисления среднего арифметического.
3. Инициализация генератора случайных чисел: Randomize; — необходимо, чтобы каждый запуск программы генерировал разные случайные числа.
4. Генерация случайных чисел:
   • Random(91) генерирует число в диапазоне от 0 до 90. После вычитания 70, мы получаем диапазон от -70 до 20.
5. Вычисление среднего арифметического: (a + b) / 2.
6. Вывод на экран: с помощью WriteLn выводим значения случайных чисел и их среднее арифметическое, форматируя число с двумя знаками после запятой.

Таким образом, программа позволяет получить два случайных числа из заданного диапазона и вычислить их среднее арифметическое, что соответствует поставленной задаче.