var
k: array [1..12] of double;
i: byte;
begin
for i := 1 to 12 do
begin
write(Enter the , (new System.DateTime(1, i, 1)).toString(m).Replace(1, ), temperature: );
readln(k[i]);
end;
writeln(1) , (k[12] + k[1] + k[2]) / 3);
writeln(2) , (k[3] + k[4] + k[5]) / 3);
writeln(3) , (k[6] + k[7] + k[8]) / 3);
writeln(4) , (k[9] + k[10] + k[11]) / 3);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.