Чтобы написать программу на Турбо Паскаль, которая будет подсчитывать средний ежедневный доход предприятия на основе доходов за каждый день недели, следуйте этим шагам:

1. Определение переменных:
   • Создайте массив для хранения ежедневного дохода.
   • Создайте переменные для подсчета суммы доходов и количества дней.
2. Ввод данных:
   • Используйте цикл для ввода дохода за каждый день недели.
   • Спросите пользователя, сколько он хочет ввести доходов (например, 7, если это все дни недели).
3. Подсчет суммы доходов:
   • Внутри цикла добавляйте каждый введенный доход к общей сумме.
4. Вычисление среднего дохода:
   • После завершения ввода данных разделите общую сумму доходов на количество дней (7).
5. Вывод результата:
   • Выведите средний ежедневный доход на экран.

Теперь давайте посмотрим на сам код программы:

program AverageIncome; var income: array[1..7] of real; // массив для хранения доходов total, average: real; // переменные для суммы и среднего дохода i: integer; // счетчик begin total := 0; // инициализация суммы доходов for i := 1 to 7 do begin writeln('Введите доход за день ', i, ':'); readln(income[i]); total := total + income[i]; // добавляем доход к общей сумме end; average := total / 7; writeln('Средний ежедневный доход составляет: ', average:0:2); end.

В этом коде:

• Мы создаем массив income для хранения доходов за 7 дней.
• Переменная total используется для подсчета общей суммы доходов, а average для хранения среднего значения.
• Цикл for позволяет ввести данные за каждый день, добавляя их к total.
• После завершения ввода мы делим total на 7, чтобы получить средний доход.
• Наконец, выводим результат с двумя знаками после запятой.

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