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

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, чтобы получить средний доход.
• Наконец, выводим результат с двумя знаками после запятой.

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