var
  t: array[1..24] of real;
  i: longint;
  s, s1: real;

begin
  for i := 1 to 24 do
    read(t[i]);
  // а) Вычисление средней температуры
  for i := 1 to 24 do
    s += t[i];
  writeln('Средняя температура: ', s / 24:1:1, '*'); // :1:1 устанавливает кол-во знаков после запятой
  // б) Вычисление минимального значения температуры
  s := t[1];
  s1 := 1; // в)
  for i := 2 to 24 do
    if (t[i] < s) then begin
      s := t[i];
      s1 := i;
    end;
  writeln('Минимальная температура ', s, '* наблюдалась в ', s1, '-м часу');
  // б) Вычисление максимального значения температуры
  s := t[1];
  s1 := 1; // г)
  for i := 2 to 24 do
    if (t[i] > s) then begin
      s := t[i];
      s1 := i;
    end;
  writeln('Максимальная температура ', s, '* наблюдалась в ', s1, '-м часу');
end.