Известны данные о среднемесячной температуре за год. Определить, какая была…

Program Task; Const m=12; Var a: Array [1… m] of Integer; i: Integer; Function Max (a, b: Integer): Integer; BeginIf a > b ThenResult: =aElseResult: =b; End; Function Min (a, b: Integer): Integer; BeginIf a < b ThenResult: =aElseResult: =b; End; BeginWriteLn ('Введите среднемесячные температуры за год (через пробел) '); For i: =1 To m DoRead (a[i]); WriteLn ('Самая высокая температура летом равна ', Max (Max (a[6], a[7]) , a[8]); WriteLn ('Самая низкая температура зимой равна ', Min (Min (a[11], a[12]) , a[1]); ReadLn; End.