Program Temperatura;

Var  d, k, T: integer;  f: byte;  a: array [1..7] of integer;

Begin  f := 0;k := 0; 

Writeln('Введите температуру'); 
 for d := 1 to 7 do  Begin   
 Write(d, ' день: ');   
Readln(a[d]);     
 end; 

 for d := 1 to 7 do    if a[d] > 0            then   
 Begin     
k := k + 1;   
f := 1;   
end; 

 if f = 0        then    Writeln('Всю неделю температура была  ниже нуля.') 
else   
Writeln('Дни с температурой выше нуля - ', k); 
  
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7]; 
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.