uses crt;
const n=7;
var sr:real;
i:integer;
a:array[1..n] of integer;
begin
clrscr;
sr := 0;
writeln('Enter temperature for every day of the week: ');
for i := 1 to n do begin
readln( a[i] );
sr := sr + a[i];
end;
sr := sr / 7;
write('Average temperature = ', sr:0:2);
readkey;
end.
Как развивать веб-проекты в 2026 году: технологии, контент E-E-A-T и факторы доверия
Современные инструменты для криптотрейдинга: как технологии помогают принимать решения
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники