Задание 4 Параграф 20 ГДЗ Семакин 9 класс (Информатика)

Задача

program Temperature;
var
T: array[1..12] of real;
Dt: array[1..12] of real;
Tsred: real;
i: integer;
begin
for i := 1 to 12 do
begin
write(‘T[‘, i:2, ‘] =’);
readln(T[i]);
end;
Tsred := 0;
for i := 1 to 12 do
Tsred := Tsred + T[i];
Tsred := Tsred / 12;
writeln(‘Средняя температура за год = ‘, Tsred:6:2, ‘градусов’);
for i := 1 to 12 do
begin
Dt[i] := T[i] — Tsred;
writeln(‘Отклонение Dt[‘, i:2, ‘] = ‘, Dt[i]:6:2)
end;
end.

Подробный ответ

Добавим в программу массив $$Dt$$ для хранения отклонений температуры каждого месяца от средней годовой температуры.

Сначала вводим 12 значений массива $$T$$, затем находим среднее значение:

$$Tsred=\frac{T[1]+T[2]+\dots+T[12]}{12}$$

После этого для каждого месяца вычисляем отклонение:

$$Dt[i]=T[i]-Tsred$$

Готовая программа:

program Temperature;
var
  T: array[1..12] of real;
  Dt: array[1..12] of real;
  Tsred: real;
  i: integer;
begin
  for i := 1 to 12 do
  begin
    write(‘T[‘, i:2, ‘] =’);
    readln(T[i]);
  end;
  Tsred := 0;
  for i := 1 to 12 do
    Tsred := Tsred + T[i];
  Tsred := Tsred / 12;
  writeln(‘Средняя температура за год = ‘, Tsred:6:2, ‘ градусов’);
  for i := 1 to 12 do
  begin
    Dt[i] := T[i] — Tsred;
    writeln(‘Отклонение Dt[‘, i:2, ‘] = ‘, Dt[i]:6:2);
  end;
end.