номер 7 (страница 54) гдз по информатике 9 класс учебник Босова, Босова

a)
var
t: integer;
s: integer;
c: integer;
sr: real;
begin
s := 0;
c := 0;
writeln('Введите температуру');
write('Понедельник>>');
readln(t);
s:= s + t;
c:= c + 1;
write('Вторник>>');
readln(t);
s:= s + t;
c:= c + 1;
write('Среда>>');
readln(t);
s:= s + t;
c:= c + 1;
write('Четверг>>');
readln(t);
s:= s + t;
c:= c + 1;
write('Пятница>>');
readln(t);
s:= s + t;
c:= c + 1;
write('Суббота>>');
readln(t);
s:= s + t;
c:= c + 1;
write('Воскресенье>>');
readln(t);
s:= s + t;
c:= c + 1;
sr:= s / c;
writeln('Средняя температура за неделю>> ', sr:0:2);
end.

б)
var s,i:integer;
sr:real;
w: array [1..7] of integer;
day: array [1..7] of string [11];
begin
s:=0;
day[1]:= 'Понедельник>>';
day[2]:= 'Вторник>>';
day[3]:= 'Среда>>';
day[4]:= 'Четверг>>';
day[5]:= 'Пятница>>';
day[6]:= 'Суббота>>';
day[7]:= 'Воскресенье>>';
writeln ('Введите температуру');
for i:=1 to 7 do
begin
write (day[i]);
readln(w[i]); s:=s+w[i];
end;
sr:=s/7;
writeln('Средняя температура за неделю>>',sr:5:2);
end.