Ре­ше­ние. Счи­ты­ва­ем дан­ные. Для этого будем идти по каж­дой стро­ке и счи­тать ко­ли­че­ство прой­ден­ных про­бе­лов. Если про­шли ноль про­бе­лов, то те­ку­щий сим­вол надо от­не­сти к имени, если один, то к фа­ми­лии, если два, то иг­но­ри­ру­ем, т. к. класс не важен, и, если три, то от­но­сим сим­вол к ко­ли­че­ству бал­лов.

При каж­дом счи­ты­ва­нии дан­ных срав­ни­ва­ем ко­ли­че­ство бал­лов с мак­си­маль­ным, если оно мень­ше или равно 200, то это то ко­ли­че­ство бал­лов, ко­то­рое име­ет­ся у ис­ко­мых школь­ни­ков. Иначе, ищем тот ре­зуль­тат, ко­то­рый мень­ше мак­си­маль­но­го, но при этом наи­бо­лее бли­зок к нему. Найдя такой ре­зуль­тат со­хра­ним имя и фа­ми­лию школь­ни­ка в спе­ци­аль­но отведённых для этого пе­ре­мен­ных. Если же такой ре­зуль­тат уже есть будем уве­ли­чи­вать счёт в пе­ре­мен­ной, пред­на­зна­чен­ной для подсчёта участ­ни­ков с оди­на­ко­вым ко­ли­че­ством бал­лов.

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

var n, i, j, spaces, max, next, cnt, points: integer;

s, name, lastName, nameNext, lastNameNext: string;

var n, i, j, spaces, max, next, cnt, points, cntMax,: integer;

s, name, lastName, nameNext, lastNameNext, nameMax, lastNameMax: string;

Begin

max:= 0;

cnt:=1;

for i := 1 to n do

begin

readLn(s);

spaces := 0;

name := '';

lastName := '';

points := 0;

for j := 1 to length(s) do

begin

if s[j] = ' ' then

inc(spaces)

else

begin

if spaces = 0 then

name := name + s[j];

if spaces = 1 then

lastName := lastName+ s[j];

if spaces = 3 then

points := points * 10 + ord(s[j]) - 48;

end;

if points > max then

begin

next:=max;

nameNext:=nameMax;

lastNameNext:=lastNameMax;

cnt:=cntMax;

max := points;

nameMax:= name;

lastNameMax:= lastName;

cntMax:=1

if max < 201 then

begin

next:=max;

nameNext:= name;

lastNameNext:= lastName;

cnt:=1

end

else

if (points <> max) and (points > next) then

begin

next:=points;

nameNext:= name;

lastNameNext:= lastName;

cnt:=1;

end

else if points = next then cnt:=cnt+1

else if points = max the cntMax:=cntMax+1;

end;

end;

if cnt = 1 then

write(nameNext, ' ', lastNameNext)

else

write(cnt);

End.