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

При каж­дом счи­ты­ва­нии дан­ных срав­ни­ва­ем ко­ли­че­ство бал­лов с мак­си­маль­ным, если те­ку­щий ре­зуль­тат боль­ше мак­си­маль­но­го, то за­пи­сы­ва­ем его вме­сто мак­си­маль­но­го, если он равен мак­си­маль­но­му, уве­ли­чи­ва­ем счётчик в пе­ре­мен­ной, пред­на­зна­чен­ной для подсчёта участ­ни­ков с оди­на­ко­вым мак­си­маль­ным ко­ли­че­ством бал­лов. Если таких людей мень­ше 25% объ­яв­ля­ем их по­бе­ди­те­ля­ми, если их боль­ше 25% и они на­бра­ли более 300 бал­лов, также объ­яв­ля­ем их по­бе­ди­те­ля­ми, если мак­си­маль­ны балл мень­ше 300, то вы­во­дим 0, по­ка­зы­вая, что по­бе­ди­те­лей нет.

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

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

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

Begin

max := 0;

cntWinner:= 0;

next:=0;

cntNext:=0;

readLn(n);

for i := 1 to n do

begin

readLn(s);

spaces := 0;

name := '';

lastName := '';

points := 0;

for j := 1 to length(s) do

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

nameNext:=nameWinner;

lastNameNext:=lastNameWinner;

next:=max;

cntNext:=cntMax;

nameWinner:= name;

lastNameWinner:= lastName;

max := points;

cntWinner := 1;

end;

if points = max then cntWinner:=cntWinner+1;

else if points > next then

begin

nameNext:=name;

lastNameNext:=lastName;

next:=points;

cntNext:=1;

end;

else if points=next then cntNext:=cntNext+1;

end;

if (cntWinner * 4 > n) and (max <= 300) and (cntWinner=1) then write(nameWinner,' ',lastNameWinner);

if (cntWinner * 4 > n) and (max <= 300) and (cntWinner>1) then write(cntWinner);

if (cntWinner * 4 > n) and (max > 300) and (cntNext=1) then write(nameNext,' ',lastNameNext);

if (cntWinner * 4 > n) and (max > 300) and (cntNext>1) then write(cntNext);

if (cntWinner * 4 < n) and (cntNext = 1) then write(nameNext,' ',lastNameNext);

if (cntWinner * 4 < n) and (cntNext > 1) then write(cntNext);

End.