Var a:array[1..12]of real; i:integer; s1,s2,s3,s4:real; begin for i:=1 to 12 do begin writeln('Введите среднемесячную температуру за ',i,' месяц:'); read(a[i]); if i<=3 then s1:=s1+a[i] else if (i>3)and(i<=6) then s2:=s2+a[i] else if (i>6)and(i<=9) then s3:=s3+a[i] else s4:=s4+a[i]; end; writeln('Средняя температуры зимних месяцев: ',s1/3); writeln('Средняя температуры весенних месяцев: ',s2/3); writeln('Средняя температуры летних месяцев: ',s3/3); writeln('Средняя температуры осенних месяцев: ',s4/3); end.
Var a,af,al:integer; begin writeln('Введите число'); readln(a); if a<10 then writeln('ответ: ',a) else if a<=99 then begin af:=a div 10; al:=a mod 10; if af>al then writeln('ответ: ',al) else writeln('ответ: ',af) end else if a<=999 then begin af:=a div 100; al:=a mod 10; if af>al then writeln('ответ: ',al) else writeln('ответ: ',af) end else if a<=9999 then begin af:=a div 1000; al:=a mod 10; if af>al then writeln('ответ: ',al) else writeln('ответ: ',af) end else if a<=30000 then begin af:=a div 10000; al:=a mod 10; if af>al then writeln('ответ: ',al) else writeln('ответ: ',af) end; end.
a:array[1..12]of real;
i:integer;
s1,s2,s3,s4:real;
begin
for i:=1 to 12 do
begin
writeln('Введите среднемесячную температуру за ',i,' месяц:');
read(a[i]);
if i<=3 then s1:=s1+a[i] else
if (i>3)and(i<=6) then s2:=s2+a[i] else
if (i>6)and(i<=9) then s3:=s3+a[i] else
s4:=s4+a[i];
end;
writeln('Средняя температуры зимних месяцев: ',s1/3);
writeln('Средняя температуры весенних месяцев: ',s2/3);
writeln('Средняя температуры летних месяцев: ',s3/3);
writeln('Средняя температуры осенних месяцев: ',s4/3);
end.