В целочисленном массиве из 31 элемента записаны значения температуры по дням в мае месяце (возможные значения температуры от 0 до 25). Найти значение температуры в самый теплый день

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.

Avascript:var дни=[]; for (var сч=0; сч<31; сч++) дни. push (Math. round (Math. random () * 25)) ; alert (дни. indexOf (Math. max. apply (null, дни))) ;