Знамениты данные о среднемесячной температуре за год. Найти, nbsp;какая была самая

USES Crt;
nbsp;VAR
nbsp;nbsp;nbsp;MAS: ARRAY[1..12] OF REAL;
nbsp;nbsp;nbsp;I: INTEGER; nbsp;nbsp;MIN,MAX:REAL;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr;
nbsp;nbsp;nbsp; Заполнение массива с клавиатуры
nbsp;nbsp;nbsp;FOR I:=1 TO 12 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;Write( Введите среднюю температуру за ,I, месяц ); nbsp;nbsp;ReadLn(MAS[I]);
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;MAX:=MAS[6]; MIN:=MAS[12];
nbsp;nbsp;nbsp; Определение самой высочайшей температуры летом
nbsp;nbsp;nbsp;FOR I:=7 TO 8 DO
nbsp;nbsp;nbsp;nbsp;nbsp;IF MAXlt;MAS[I] THEN MAX:=MAS[I];
nbsp;nbsp;nbsp; Определение самой низкой температуры зимой
nbsp;nbsp;nbsp;FOR I:=1 TO 2 DO
nbsp;nbsp;nbsp;nbsp;nbsp;IF MINgt;MAS[I] THEN MIN:=MAS[I];
nbsp;nbsp;nbsp;WriteLn( Самая высочайшая температура летом ,MAX);
nbsp;nbsp;nbsp;WriteLn( Самая низкая температура зимой ,MIN);
nbsp;END.