Страница 54-55 параграф 1.4 вопрос 7, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение

а)

program Z_1_4_7a;

var

  t, s: integer;

begin

  s := 0;

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

  write('Понедельник >> ');

  readln(t);

  s := s + t;

  write('Вторник >> ');

  readln(t);

  s := s + t;

  write('Среда >> ');

  readln(t);

  s := s + t;

  write('Четверг >> ');

  readln(t);

  s := s + t;

  write('Пятница >> ');

  readln(t);

  s := s + t;

  write('Суббота >> ');

  readln(t);

  s := s + t;

  write('Воскресенье >> ');

  readln(t);

  s := s + t;

    Writeln('Средняя температура за неделю >>',s/7:6:2)

end.

б)

program Z_1_4_7b;

const

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

var

  t, s, i: integer;

begin

  s := 0;

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

  for i := 1 to 7 do

  begin

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

    readln(t);

    s := s + t

  end;

  Writeln('Средняя температура за неделю >>', s / 7:6:2)

end.