Предмет: Информатика,
автор: Чёткая25
Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. Исходные данные должны вводиться во время работы программы. Рекомендуемый вид экрана во время работы программы приведен ниже (данные, введенные пользователем, выделены полужирным шрифтом).
Введите температуру воздуха за неделю.
Понедельник -> 12
Вторник -> 10 '
Среда -> 16
Четверг -> 18
Пятница -> 17
Суббота -> 16
Воскресенье -> 14
Средняя температура за неделю: 14.71 град.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: fhytivn
Предмет: Геометрия,
автор: hakobyanvardan672009
Предмет: Английский язык,
автор: lemon2728
Предмет: История,
автор: stalimbekemand