Опубликовано 03.01.2018 по предмету Информатика от Гость

§41. Таблицы и массивы. вопрос для тех же исходных данных,что рассматриваются в параграфе,составьтеалгоритм,в котором вычесляются четыре величины:средние температуры зимних месяцев,весенних месяцев.ЛЕТНИХ МЕСЯЦЕВ,осенних месяцев.

Ответ оставил Гость

Type mas=array[1..93] of real;
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.