Информатика: Составьте алгоритм средней температуры зимних месяцев

Алёксейudfih

07.08.2021 13:12

Информатика

Есть ответ 👍

Составьте алгоритм средней температуры зимних месяцев

138

221

Посмотреть ответы 2

Ответы на вопрос:

122519

Информатика

4,8(62 оценок)

Var i: integer; t: array[1..3,0..31]of real; begin write('введите температуру в декабре по дням: '); for i: =1 to 31 do begin readln(t[1,i]); t[1,0]: =t[1,0]+t[1,i]; end; t[1,0]: =t[1,0]/31; write('введите температуру в январе по дням: '); for i: =1 to 31 do begin readln(t[2,i]); t[2,0]: =t[2,0]+t[2,i]; end; t[2,0]: =t[2,0]/31; write('введите температуру в феврале по дням: '); for i: =1 to 28 do begin readln(t[3,i]); t[3,0]: =t[3,0]+t[3,i]; end; t[3,0]: =t[3,0]/28; writeln('средняя температура в декабре: ',t[1,0]); writeln('средняя температура в январе: ',t[2,0]); writeln('средняя температура в феврале: ',t[3,0]); writeln('средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3); end.