type
tablica= record
subj:string[20];
ball:array of 2..5;
sr:real;
end;
var
mas:array[1..10] of tablica;
n:integer;
t:real;
i,b,j,k:byte;
begin
writeln('введите количество предметов: ');
readln(n);
writeln('введите количество учеников: ');
read(b);
writeln('введите название предметов: ');
for i:=1 to n do
begin
readln(mas.subj);
for j:= 1 to b do
begin
read(mas.ball[j]);
mas.sr:=mas.sr+mas.ball[j];
end;
mas.sr:=mas.sr/b;
write (mas.sr);
end;
readln;
begin
for i:=n downto 2 do
for k:=1 to n do
if mas.sr>mas[k].sr then
t:=mas.sr;
mas[i].sr:=mas[j].sr;
mas[j].sr:=t;
end;
writeln(mas[i].sr);
end.