Страница 72-86 §2.2 номер 7, ГДЗ по информатике за 9 класс к учебнику Босовой

program z_7;

const

  n = 7;

  b: array [1..n] of string = ('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');

var

  i, t, s: integer;

  a: integer;

begin

  s := 0;

  writeln('Введите температуру');

  for i := 1 to n do

  begin

    write(b[i], '>>');

    readln(a); s := s + a

  end;

  writeln('Средняя температура за неделю:', s /n:4:2)

end.