bobr600 Program Pogodauses crt;const n=7;var sr:real;i:integer;a:array[1..n] of integer;beginclrscr;sr:=0;writeln('Укажите температуру за день ');for i:=1 to n do begin    readln(a[i]);    sr:=sr+a[i];end;sr:=sr/7;write('Средняя температура = ',sr:0:2);readkey;end.