Ответ:

Объяснение:

Const n=12;

Var T:array[1..n] of real;

   i,imax:integer;

   sr:real;

Begin  

   writeln('Введите среднии температуры за каждый месяц года');

   sr:=0;

   For i:=1 to n do

   Begin

     read(T[i]);

     sr:=sr+T[i];

   End;

   sr:=sr/n;

   writeln('Среднегодовая температура = ',sr:0:2);

   imax:=1;

   For i:=2 to n do

    if T[i]>T[imax] then imax:=i;

   writeln('Самая высокая среднемесячная температура была в месяце');

   writeln('под номером ',imax,' и составила ',T[imax]:0:2);

   readln;

End.

Вроде так.