Ре­ше­ние. Про­грам­ма счи­ты­ва­ет вход­ные дан­ные, сразу под­счи­ты­вая в мас­си­ве, хра­ня­щем 12 ве­ще­ствен­ных чисел, сумму тем­пе­ра­тур в каж­дом из ме­ся­цев. Затем с ис­поль­зо­ва­ни­ем этого мас­си­ва ищет­ся мак­си­маль­ная сред­не­ме­сяч­ная тем­пе­ра­ту­ра. За до­пол­ни­тель­ный про­смотр сред­не­ме­сяч­ных тем­пе­ра­тур (их можно как за­пом­нить в мас­си­ве, так и вы­чис­лить за­но­во) рас­пе­ча­ты­ва­ет­ся ин­фор­ма­ция об ис­ко­мых ме­ся­цах. Баллы на­чис­ля­ют­ся толь­ко за про­грам­му, ко­то­рая ре­ша­ет за­да­чу хотя бы для част­но­го слу­чая (на­при­мер, месяц с мак­си­маль­ной тем­пе­ра­ту­рой един­стве­нен).

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Пас­каль:

const d:array[1..12] of integer =

(31,28,31,30,31,30,31,31,30,31,30,31);

var m:array[1..12] of real;

max, t:real;

i,j:integer;

cl,c2:char;

begin

for j:=1 to 12 do

m[j ] : =0;

for i:=l to 365 do

begin

readln(cl,cl,cl,cl,c2,t);

j:= (ord(cl)-ord('0') ) *10 +

ord(c2)-ord('01);

m [ j] :=m[j]+t

end;

max:=m[1]/d[1];

for j:=2 to 12 do

if m[j]/d[j] > max then

max:=m[j]/d[j];

for j:=1 to 12 do

if abs(m[j]/d[j]-max) < 0.0001

then writeln(j,1 ',m[j]/d[jj:0:1)

end.

При­мер пра­виль­ной про­грам­мы на языке Бей­сик:

DATA 31,28,31,30,31,30,31,31,30,31,30,31

DIM i, j, d (12) AS INTEGER

DIM m(12)

DIM dat AS STRING * 5

FOR i = 1 TO 12

m (i) = 0

READ d(i)

NEXT i

FOR i = 1 TO 3 65

INPUT dat, t

j = (ASC(MID$(dat, 4, 1)) - ASC("0")> * 10 +

ASC (MID5 (dat, 5, 1)) -ASCCO")

m(j) = m (j ) + t

NEXT i

max = m(l) / d(1)

FOR j = 2 TO 12

IF m(j ) / d(j) > max THEN max = m(j) / d(j)

NEXT j

FOR j = 1 TO 12 IF ABS(m(j) / d(j) - max) < .0001 THEN

PRINT j; " " ;

PRINT USING "##.#"; m(j) / d(j)

ENDIF

NEXT j

END