Дан целочисленный массив из 7 элементов, в котором записаны значения температуры воздуха за неделю. Элементы массива могут принимать значения от (–10) до 0. Составьте программу, которая подсчитывает и выводит номер дня недели, когда температура была максимальной.
var
temp:array [1..7] of shortint;
i,max:byte;
begin
randomize;
for i:=1 to 7 do temp[i]:=random(10)-10;
max:=1;
for i:=2 to 7 do if temp[i]>temp[max] then max:=i;
writeln(max);
end.