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

program aver;

var n, s: integer; / /n - число, s - сумма чисел

a: real; / /Среднее значение введенных чисел

begin

s: = 0;

for i:integer:=1 to 5 do

begin

write ('Введите число: ');

readln (n);

s: = s + n;

a: = s / i;

writeln ('Среднее значение введенных чисел: ', a)

end

end.