var i, day, sum, sub: integer; begin for i:=1 to 7 do begin readln(day); sum:=sum+day; if day<0 then sub:=sub+1; end; writeln('Средняя температура за неделю: ', sum div 7); if sub>0 then writeln('Были заморозки'); end.