Question

1. Дана последовательность целых чисел, вводимых с клавиатуры (до 0). Найти среднее арифметическое чисел.

Answer 1

Var
A,N:integer;
S:real;
Begin
N:=-1;
S:=0;
Repeat
Read(A);
N:=N+1;
S:=S+A;
Until A = 0;
WriteLn('Среднее арифметическое введённых чисел равно: ',S/N);
End.

Answer 2

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

Для вычисления среднего арифметического чисел в последовательности целых чисел, введенных с клавиатуры, можно использовать следующий алгоритм:

1. Создать переменные для хранения суммы чисел и количества чисел в последовательности, и инициализировать их нулями. 2. Запросить пользователя вводить целые числа с клавиатуры до тех пор, пока не будет введен 0 (конец последовательности). 3. При каждом вводе числа увеличивать сумму чисел на введенное число и увеличивать количество чисел на 1. 4. После окончания ввода последовательности вычислить среднее арифметическое как отношение суммы чисел к их количеству. 5. Вывести результат среднего арифметического на экран.

Пример псевдокода для данной задачи:

сумма = 0
количество_чисел = 0

пока введенное_число != 0:
    ввести введенное_число с клавиатуры
    если введенное_число != 0:
        сумма = сумма + введенное_число
        количество_чисел = количество_чисел + 1

если количество_чисел != 0:
    среднее_арифметическое = сумма / количество_чисел
    вывести "Среднее арифметическое:", среднее_арифметическое
иначе:
    вывести "Последовательность не содержит чисел"

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