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

Var i: byte; n,k: real; begin for i: =1 to 5 do begin readln(n); k: =k+n; writeln(k/i); end; end.

Program sum_41; var a, b, c, d, e: real; begin readlan (a); writeln (a/1); readln (b); writeln ( (a+b)/2); readln (c); writeln ( (a+b+c)/3); readln (d); writeln ( (a+b+c+d)/4); readln (e); writeln ( (a+b+c+d+e)/5); end. как-то так

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.