Var a:array [1..31] of integer;
i,m:integer;
begin
for i:= 1 to 31 do a[i]:= Random(26);
writeln(a);
for i:=1 to 31 do if a[i]>m then m:=a[i];
write('Самая высокая температура - ',m,' наблюдалась:');
for i:=1 to 31 do if a[i]=m then write(i:3);
write(' мая')
end.