Объяснение:
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
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.
Вроде так.
Объяснение:
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.
Вроде так.