Question

Написать программу, которая вводит с клавиатуры последовательность из 5-ти вещественных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности На паскале (через for to do)

Answer 1

Var a,s:real; i:integer;
begin
s:=0;
for i:=1 to 5 do
 begin
 readln(a);
 s:=s+a;
 writeln(s/i:5:2);
 end;
end.

Пример:
2.8
 2.80
9.4
 6.10
0.7
 4.30
6.0
 4.72
4.1
 4.60

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет описанное вами задание:

pascalCopy code
program CalculateAverages;

var
  i: Integer;
  sum, num: Real;

begin
  sum := 0;

  writeln('Введите 5 вещественных чисел:');
  for i := 1 to 5 do
  begin
    readln(num);
    sum := sum + num;
    writeln('Среднее арифметическое после ввода ', i, ' числа: ', sum / i:0:2);
  end;
end.

Этот код позволяет вам ввести последовательность из 5 вещественных чисел и после каждого ввода выводит среднее арифметическое для полученной части последовательности. Вы можете скомпилировать и выполнить эту программу средой разработки Pascal (например, Free Pascal).