Номер §1.4 № 7

Средняя температура равна сумме температур семи дней, делённой на . При обработке последовательности сохранять все значения не требуется: после ввода очередной температуры сразу прибавляем её к сумме. В варианте с массивом сначала записываем семь значений в T[]–T[], затем отдельным циклом суммируем их. Оба варианта допускают вещественные температуры.

а) Обработка последовательности:

program AverageSequence;
var
  day: array[..] of string;
  i: integer;
  t, sum: real;
begin
  day[] := 'Понедельник'; day[] := 'Вторник';
  day[] := 'Среда'; day[] := 'Четверг';
  day[] := 'Пятница'; day[] := 'Суббота';
  day[] := 'Воскресенье';
  sum := ;
  for i :=  to  do
  begin
    write(day[i], '>>');
    readln(t);
    sum := sum + t;
  end;
  writeln('Средняя температура за неделю>>', sum / ::);
end.

Здесь t хранит только текущую температуру; строковый массив нужен лишь для названий дней, а температуры обрабатываются как последовательность.

б) Обработка массива температур:

program AverageArray;
var
  day: array[..] of string;
  T: array[..] of real;
  i: integer;
  sum: real;
begin
  day[] := 'Понедельник'; day[] := 'Вторник';
  day[] := 'Среда'; day[] := 'Четверг';
  day[] := 'Пятница'; day[] := 'Суббота';
  day[] := 'Воскресенье';
  for i :=  to  do
  begin
    write(day[i], '>>');
    readln(T[i]);
  end;
  sum := ;
  for i :=  to  do sum := sum + T[i];
  writeln('Средняя температура за неделю>>', sum / ::);
end.

В обоих случаях для данных примера сумма равна , а среднее . При выводе двух знаков после запятой получается ,. Следовательно, оба способа дают одинаковый результат, но массив позволяет позже обратиться к температуре любого дня.