Ответы на вопрос:
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 writel n('no'); end.
Популярно: Информатика
-
mariyudina9517.06.2022 16:43
-
Angelochek191524.07.2022 03:00
-
Wowan0709.07.2022 06:05
-
lerastorogeva12.02.2023 06:07
-
ааааааа5920.01.2021 11:44
-
Irina1234567890119.10.2020 06:19
-
лох25028.04.2022 09:21
-
mlp123116.01.2020 07:44
-
стас48926.01.2023 12:53
-
100dan10028.04.2022 01:41