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.
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.
105 120 125 130 135 140 145 150 160 165 170 175 180 185 190 195 205 210 215 230 235 240 245 250 260 265 270 275 280 285 290 295 305 310 315 320 325 340 345 350 360 365 370 375 380 385 390 395 405 410 415 420 425 430 435 450 460 465 470 475 480 485 490 495 510 520 530 540 560 570 580 590 605 610 615 620 625 630 635 640 450 650 670 675 680 685 690 695 705 710 715 720 725 730 735 740 745 750 760 765 780 785 790 795 805 810 815 820 825 830 835 840 845 850 860 865 870 875 890 895 905 910 915 920 925 930 935 940 945 950 960 965 970 975 980 985 990 995 вот все!