Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. исходные данные должны вводиться во время работы программы. рекомендуемый вид экрана во время работы программы ниже (данные, введенные пользователем, выделены полужирным шрифтом). введите температуру воздуха за неделю. понедельник -> 12 вторник -> 10 ' среда -> 16 четверг -> 18 пятница -> 17 суббота -> 16 воскресенье -> 14 средняя температура за неделю: 14.71 град.

217

340

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

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

alopavopa

Информатика

4,7(59 оценок)

Var a: array[1..7] of string = ('понедельник', 'вторник', 'среда', 'четверг', 'пятница', 'суббота', 'воскресенье'); av: real; i, t: integer; begin writeln('введите температуру воздуха за неделю.'); for i : = 1 to 7 do begin write(a[i], ' -> '); readln(t); av : = av + t; end; av : = av / 7; writeln('средняя температура за неделю: ', av: 0: 2, ' град.'); readln; end.