§41. Таблицы и массивы. вопрос для тех же исходных данных,что рассматриваются в...

Question

§41. Таблицы и массивы. вопрос для тех же исходных данных,что рассматриваются в параграфе,составьте алгоритм,в котором вычисляются четыре величины:средние температуры зимних месяцев,весенних месяцев ,летних,осенних месяцев.

Comments

Какие исходные данные рассматриваются в параграфе?

---

Месяц 1 2 3 4 5 6 7 8 9 10 11 12

---

Температура -21 -18 -7,5 5,6 10 18 22,2 24 17 5,4 -7 -18

Answer 1

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

Comments

Числа с запятой нужно писать с точкой вместо запятой