Напишите программу для решения следующей . ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. найдите среднюю температуру за время наблюдения. если количество дней, когда температура поднималась выше нуля градусов, не менее 5, выведите yes, иначе выведите no. программа получает на вход количество дней, в течение которых проводилось наблюдение n (1 ≤ n ≤ 31), затем для каждого дня вводится температура.

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.

4: 2

2|0

1|0

0|1

 

4₁₀=100₂

 

10: 2

5|0

2|1

1|0

0|1

 

10₁₀=1010₂

 

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

 

1996₁₀=11111001100 

 

100.1010.11111001100     

v=331+0.6t

в зимний день- v=331+0.6*(-35)=310 м/с

в летний день- v=331+0.6*30=349 м/с