 Danayu 
                                                29.05.2020 21:05
                                                
                                                Danayu 
                                                29.05.2020 21:05
                                             плюхплюх 
                                                29.05.2020 21:19
                                                
                                                плюхплюх 
                                                29.05.2020 21:19
                                             камка7 
                                                29.05.2020 21:19
                                                
                                                камка7 
                                                29.05.2020 21:19
                                             maxim2006c 
                                                13.05.2020 12:28
                                                
                                                maxim2006c 
                                                13.05.2020 12:28
                                             Неоченьумноесущество 
                                                13.05.2020 12:28
                                                
                                                Неоченьумноесущество 
                                                13.05.2020 12:28
                                             Fazzika 
                                                13.05.2020 12:28
                                                
                                                Fazzika 
                                                13.05.2020 12:28
                                             serdecsofia 
                                                13.05.2020 12:28
                                                
                                                serdecsofia 
                                                13.05.2020 12:28
                                             zhasik1337 
                                                13.05.2020 12:26
                                                
                                                zhasik1337 
                                                13.05.2020 12:26
                                             angelina455 
                                                03.03.2021 11:38
                                                
                                                angelina455 
                                                03.03.2021 11:38
                                            
Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
T:array[1..7] of integer;
D: array[1..7] of real;
i,k:byte;
s:integer;
SR:real;
begin
S:=0;
randomize;
Writeln('Температура в течение недели:');
for i:=1 to n do
begin
T[i]:=random(50)-25;
S:=S+T[i];
write(T[i]:4);
end;
writeln;
SR:=S/n;
writeln('Средняя температура: ',SR:3:2);
k:=0;
Writeln('Температуры ниже средней в дни : ');
for i:=1 to n do
if T[i]<SR then
begin
write(Day[i]:15);
k:=k+1;
end;
writeln;
writeln('Всего ',K,' дня(ей)');
writeln('Массив отклонений:');
for i:=1 to n do
begin
D[i]:=T[i]-SR;
write(d[i]:8:3);
end;
end.