Ре­ше­ние. За­ме­тим, что вме­сто срав­не­ния сред­них бал­лов можно срав­ни­вать суммы бал­лов. Будем счи­ты­вать имена, фа­ми­лии и суммы оце­нок в мас­сив из 100 за­пи­сей. Найдём три наи­мень­ших суммы бал­лов, затем, срав­ни­вая все по­лу­чен­ные ыллы с наи­боль­шим из трёх по­лу­чен­ных ми­ни­му­мов найдём нуж­ных уче­ни­ков.

var a:array[1..100]of record

                      name:string;

                      point:integer;

                      end;

n,i,m,e,min,j,min1,min2:integer;

c:char;

begin

min:=20;

min1:=20;

min2:=20;

read(n);

for i:=1 to n do

begin

    repeat{счи­ты­ва­ем имена фа­ми­лии}

    read(c);

    a[i].name:=a[i].name+c;

    until c=' ';

    a[i].name:=a[i].name+' ';

    repeat

    read(c);

    a[i].name:=a[i].name+c;

    until c=' ';

    for j:=1 to 3 do   {счи­та­ем баллы}

        begin

             read(e);

             m:=m+e;

        end;

    if m < min then   {сразу на­хо­дим троих ми­ни­маль­ных}

       begin

            min2:=min1;

            min1:=min;

            min:=m;

       end

    else

    if m < min1 then

       begin

            min2:=min1;

            min1:=m;

       end

    else

    if m < min2 then

    min2:=m;

    a[i].point:=m;

    m:=0;

end;

for i:=1 to n do

if a[i].point<=min2       {все те кто мень­ше min2 будут равны или мин1 или min}

then write(2,a[i].name);

end.

За­ме­ча­ние.

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