Информатики ! Урфин Джюс обрабатывает грядки волшебными растениями. Каждое утро Урфин Джюс просыпается и, если видит хотя бы одну необработанную грядку, обрабатывает ровно одну грядку в день. Проснувшись в первый день, Урфин Дьюс увидел 524 необработанные грядки . После того, как Урфин Дьюс заканчивает возделывать следующую грядку , он ложится спать, но пока он спит, могут произойти следующие события: 1. После того, как Урфин Дьюс обработал каждую десятую грядку, прибывает злая колдунья Бастинда и добавляет 15 необработанных
var i,w:byte;season:mas;t:real;
function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;
begin
repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;
writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);
writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);
writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);
writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.
i:integer;
t:array[1..3,0..31]of real;
begin
write('Введите температуру в декабре по дням: ');
for i:=1 to 31 do
begin
readln(t[1,i]);
t[1,0]:=t[1,0]+t[1,i];
end;
t[1,0]:=t[1,0]/31;
write('Введите температуру в январе по дням: ');
for i:=1 to 31 do
begin
readln(t[2,i]);
t[2,0]:=t[2,0]+t[2,i];
end;
t[2,0]:=t[2,0]/31;
write('Введите температуру в феврале по дням: ');
for i:=1 to 28 do
begin
readln(t[3,i]);
t[3,0]:=t[3,0]+t[3,i];
end;
t[3,0]:=t[3,0]/28;
writeln('Средняя температура в декабре: ',t[1,0]);
writeln('Средняя температура в январе: ',t[2,0]);
writeln('Средняя температура в феврале: ',t[3,0]);
writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3);
end.