program raf105;
var
t:array[1..12] of real;
i:integer;
begin
for i:=1 to 12 do
begin
writeln('Введите среднюю температуру месяца №',i);
readln(t[i])
end;
writeln('Средняя температура зимних месяцев: ',(((t[12]+t[1]+t[2]) / 3):0:1));
writeln('Средняя температура весенних месяцев: ',(((t[3]+t[4]+t[5]) / 3):0:1));
writeln('Средняя температура летних месяцев: ',(((t[6]+t[7]+t[8]) / 3):0:1));
writeln('Средняя температура осенних месяцев: ',(((t[9]+t[10]+t[11]) / 3):0:1));
end.
<u><em>Язык PascalABC</em></u>
Program srednee;
var
a, b, c:integer;
sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
begin
a:= sqr(a); writeln ('Квадрат а=', a);
b:= sqr(b); writeln ('Квадрат b=', b);
c:= sqr(c); writeln ('Квадрат c=', c);
end else begin
if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
begin
a:= a+10; writeln ('а+10=', a);
b:= b+10; writeln ('b+10=', b);
c:= c+10; writeln ('c+10=', c);
end else begin
sa:=(a+b+c)/3;
write ('Среднее арифметическое =', sa);
end
end
end.