Question

напишите программу которая вычисляет среднюю за неделю температуру воздуха.Исходные данные вводятся с клавиатуры Средняя температура за неделю 14.71

Answer 1

program temperature;

var day: integer;

  current, sum: real;

begin

  sum := 0;

  for day := 1 to 7 do

  begin

    read(current);

    sum := sum + current;

  end;

  writeln(sum / 7);

end.