На языке Паскаля.Составе программу,которая вводится с клавиатуры последовательность из пяти висели после ввода каждого числа выводят среднее арифметическое полученной части последовательности.
program AverageCalculator; var num, sum: integer; count: integer; begin sum := 0; count := 0; writeln('Enter 5 numbers: '); repeat readln(num); sum := sum + num; count := count + 1; writeln('Average so far: ', sum / count); until count = 5; end.
Программа запрашивает у пользователя пять чисел и после ввода каждого числа вычисляет и выводит среднее арифметическое всех введенных чисел до этого момента.
var
num, sum: integer;
count: integer;
begin
sum := 0;
count := 0;
writeln('Enter 5 numbers: ');
repeat
readln(num);
sum := sum + num;
count := count + 1;
writeln('Average so far: ', sum / count);
until count = 5;
end.
Программа запрашивает у пользователя пять чисел и после ввода каждого числа вычисляет и выводит среднее арифметическое всех введенных чисел до этого момента.