составьте программу нахождения среднего арифметического меньше 10 паскаль

Для нахождения среднего арифметического чисел, которые меньше 10, на языке программирования Pascal, мы можем написать программный код, который будет запрашивать у пользователя ввод чисел и затем рассчитывать среднее арифметическое. Давайте разберем этот процесс по шагам.

Шаг 1: Подготовка переменных

Нам нужны переменные:

• Счетчик для количества введенных чисел (например, count).
• Сумма введенных чисел, которые меньше 10 (например, sum).
• Переменная для хранения текущего введенного числа (например, number).

Шаг 2: Ввод данных

Мы будем запрашивать у пользователя ввод чисел, пока он не введет специальное значение для завершения (например, -1).

Шаг 3: Условия для расчета суммы

Будем проверять, меньше ли каждое введенное число 10. Если да, добавляем его к сумме и увеличиваем счетчик.

Шаг 4: Расчет среднего арифметического

После того как пользователь завершит ввод, мы проверим, не равен ли счетчик нулю (чтобы избежать деления на ноль), и затем найдем среднее арифметическое, деля сумму на количество чисел.

Шаг 5: Вывод результата

Выводим полученное среднее арифметическое.

Вот пример кода, который выполняет эти шаги:

program AverageLessThanTen;

var
  number: Integer;
  sum, count: Integer;
  average: Real;

begin
  sum := 0;  // Сумма чисел меньше 10
  count := 0;  // Количество чисел меньше 10

  writeln('Введите числа (введите -1 для завершения):');
  repeat
    readln(number);  // Считываем число
    if number < 10 then
    begin
      sum := sum + number;  // Добавляем к сумме
      count := count + 1;   // Увеличиваем счетчик
    end;
  until number = -1;  // Выход из цикла, если введено -1

  // Проверяем, есть ли введенные числа
  if count > 0 then
  begin
    average := sum / count;  // Рассчитываем среднее арфиметическое
    writeln('Среднее арифметическое чисел меньше 10: ', average:0:2);
  end
  else
  begin
    writeln('Нет введенных чисел меньше 10.');
  end;

end.

Пояснение к коду:

• program AverageLessThanTen; — объявляем название программы.
• var — здесь мы объявляем переменные, которые будут использоваться в программе.
• begin ... end; — начало и конец основной части программы.
• repeat ... until — цикл, который будет продолжаться до тех пор, пока пользователь не введет -1.
• Проверка if number < 10 — условие, добавляющее число к сумме и увеличивающее счетчик, если число меньше 10.
• Расчет среднего — если были введены числа, мы делим сумму на количество для получения среднего арифметического и выводим результат.

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