Паскаль. в массиве b хранится информация о среднедневной температуре за каждый день июля, заданной случайным образом в диапазоне от 25 до 35. определить дату самого тёплого дня.

var b: array [1..31] of integer;

i,max,den: integer;

begin

for i:=1 to 31 do begin

b[i]:=random(11)+25;

end;

max:=b[1];

den:=1;

for i:=2 to 31 do

if max<b[i] then begin max:=b[i]; den:=i; end;

writeln('Самый теплый день был ',den,' июля - ',max,' градусов');

end.