Введите в компьютер программу Temperature, добавив к ней обработку массива Dt
Введите в компьютер программу Temperature, добавив к ней обработку массива Dt. Выполните программу, получите результаты. Сравните их с приведенными в параграфе.
Program Temperature;
var T: array [1..12] of real;
Dt: array [1..12] of real;
I: integer; Tsred: real;
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.