Ответ:
var N,i,k,z:integer;
s:real;
begin
s:=0;
k:=0;
repeat
write('Введите кол-во дней : ');
readln(N);
until (N>=1) and (N<=31); {проверка на верное количество дней}</p>
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.
Подробнее - на Znanija.com - znanija.com/task/10735596#readmore
Объяснение: