Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Алексеев Сергей
03.01.2022, 05:05
Информатика

Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники наблюдения за погодой и

ежедневно записывали дневную температуру. Найдите среднюю температуру за время наблюдения. Если количество дней, когда температура поднималась выше нуля градусов, не менее 5, выведите YES, иначе выведите NO. Программа получает на вход количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31), затем для каждого дня вводится температура.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Вонди
var N,i,k,z:integer; s:real; begin s:=0; k:=0; repeat write('Введите кол-во дней : '); readln(N); until (N>=1) and (N<=31); for i:=1 to N do begin write ('Введите значение температуры в ',i,' день : '); readln(z); s:=s+z; if z>0 then k:=k+1; end; s:=s/N; writeln('Средняя температура = ',s); if k>=5 then writeln('YES') else writeln('NO'); end.