program raf105;
var
t:array[1..12] of real;
i:integer;
begin
for i:=1 to 12 do
writeln('Введите среднюю температуру месяца №',i);
readln(t[i])
end;
writeln('Средняя температура зимних месяцев: ',(((t[12]+t[1]+t[2]) / 3):0:1));
writeln('Средняя температура весенних месяцев: ',(((t[3]+t[4]+t[5]) / 3):0:1));
writeln('Средняя температура летних месяцев: ',(((t[6]+t[7]+t[8]) / 3):0:1));
writeln('Средняя температура осенних месяцев: ',(((t[9]+t[10]+t[11]) / 3):0:1));
end.
Язык PascalABC
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program raf105;
var
t:array[1..12] of real;
i:integer;
begin
for i:=1 to 12 do
begin
writeln('Введите среднюю температуру месяца №',i);
readln(t[i])
end;
writeln('Средняя температура зимних месяцев: ',(((t[12]+t[1]+t[2]) / 3):0:1));
writeln('Средняя температура весенних месяцев: ',(((t[3]+t[4]+t[5]) / 3):0:1));
writeln('Средняя температура летних месяцев: ',(((t[6]+t[7]+t[8]) / 3):0:1));
writeln('Средняя температура осенних месяцев: ',(((t[9]+t[10]+t[11]) / 3):0:1));
end.
Язык PascalABC