Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.03.2015 02:15
- Информатика
- remove_red_eye 14993
- thumb_up 43
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr('Понедельник','Вторник','Среда','Четверг','Пятница',
'Суббота','Воскресенье');
Writeln('Введите температуру');
var t:=new real[7];
for var i:=0 to 6 do begin Write(a[i],'>> '); Read(t[i]) end;
Writeln('Средняя температура за неделю: ',t.Average:0:2)
end.
Введите температуру
Понедельник>> 12
Вторник>> 10
Среда>> 16
Четверг>> 18
Пятница>> 17
Суббота>> 16
Воскресенье>> 14
Средняя температура за неделю: 14.71
- 23.03.2015 09:00
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.