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

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

var рс:array[1..12] of integer;

р : 1. .12;

class:string[3];

с:char;

max, i, N:integer;

begin readln(N) ;

for i:=1 to 12 do

pc[i]:=0;

for i:=l to N do

begin

repeat

read(c)

until c=' '; {счи­та­на фа­ми­лия}

repeat

read(c)

until c=' '; {счи­та­но имя}

readln(class);

{опре­де­ля­ем номер па­рал­ле­ли}

if length(class)=2 then

p:=ord(class[1])-ord(10') else

p:=(ord(class[1])-ord('0'))*10+

ord(class[2])-ord('0');

pc[p]:=pc[p]+1;{учи­ты­ва­ем уче­ни­ка этой па­рал­ле­ли}

end;

max:=0;

for i:=1 to 12 do

if pc[i]>max then max:=pc[i];

writeln('Мак­си­мум уче­ни­ков в па­рал­ле­ли:',max);

for i:=1 to 12 do

if pc[i]=max then

write(i,' ');

readln

end.

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

DIM i, j, р, n, max, pc(12) AS INTEGER

DIM m(12)

DIM s AS STRING

FOR i = 1 TO 12

pc(i) = 0

NEXT i

INPUT n

FOR j = 1 TO n

LINE INPUT s

c$ = MI D$ (s, 1, 1)

i = 1

WHILE NOT (с $ = " ")

i = i - 1

c$ = MID$ (s, i, 1)

WEND i = i + 1

с$ = MID$(s, i, 1)

WHILE NOT (с $ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

s = MID$ (s, i + 1, 3)

IF MID$(s, 2, 1) >= "0" AND MID$(s, 2, 1) < =

"2" THEN

p = (ASC(MID$(s, 1, 1)) - ASC("0")) * 10 +

ASC(MID$(s, 2, 1)) - ASC("0")

ELSE

p = ASC(MID$(s, 1, 1)) - ASC("0")

ENDIF

pc(p) = pc(p) + 1

NEXT j

max = 0

FOR i = 1 TO 12

IF pc (i) > max THEN max = pc(i)

NEXT i

PRINT "Max = "; max

FOR i = 1 TO 12

IF pc(i) = max THEN PRINT i; " ";

NEXT i

END