var a:array [1..12] of integer;
i,t:integer;
begin
for i:=1 to 12 do a[i]:=random(20)+1;
for i:=1 to 12 do t:=t+a[i];
writeln (a);
writeln ('Среднесуточная температура за день: ',t/12:0:3);
end.
var a:array [1..12] of integer;
i,t:integer;
begin
for i:=1 to 12 do a[i]:=random(20)+1;
for i:=1 to 12 do t:=t+a[i];
writeln (a);
writeln ('Среднесуточная температура за день: ',t/12:0:3);
end.