program sbor;

{$APPTYPE CONSOLE}

uses
SysUtils;

type sbor=record
fam:string;
name:string;
det:array [1..5]of integer;

end;
brig=array[1..10]of sbor;

procedure max(brig0:brig; n:intege; var brig1:brig; var j:integer);
var k,i,sum,sum1:integer;
sum1:=0;
for i:=1 to n do begin
sum:=0;
for k:=1 to 5 do
sum:=sum+sbor.det[k];
if sum>sum1 then sum1:=sum;
end;
j:=0;
for i:=1 to n do begin
for k:=1 to 5 do
sum:=sum+sbor.det[k];

if sum=sum1 then begin
j:=j+1;
brig1[j]:=brig0[i];
end;
end;
end;
var br,br2:brig;
s,p,d:integer;
begin
writeln('skolko sborshchikov ?');
readln(s);
for p:=1 to s do begin
readln(br[p].fam);
readln(br[p].name);
for d:=1 to 5 do
read(br[p].det[d]);
end;
max(br,s,br2,s2);
for p:=1 to s2 do begin
writeln(br[p].fam);
writeln(br[p].name);
for d:=1 to 5 do
write(br[p].det[d],' ');
end;






end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.