Нужно дописать программу - работа с записями на языке Pascal

[Yakup]

Сообщение от p51x

Берете любом понравившийся вам алгоритм сортировки, копируете его себе и заменяете a[i], a[j] на a[i].srednii_ball и a[j].srednii_ball, соответственно.

 for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j].sred_ball > arr[j+1].sred_ball then begin
                k := arr[j].sred_ball;
                arr[j].sread_ball := arr[j+1].sred_ball;
                arr[j+1].sred_ball := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to m do
        write (arr[i].sread_ball:4);

так?

[Yakup]

     for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j].sred_ball > arr[j+1].sred_ball then begin
                k := arr[j].sred_ball;
                arr[j].sread_ball := arr[j+1].sred_ball;
                arr[j+1].sred_ball := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to m do
        write (arr[i].sread_ball:4);

так?

[Serge_Bliznykov]

Сообщение от Yakup

так?

нет.

     for i := 1 to n-1 do
        for j := 1 to n-i do begin
            sr1:=0.0; for k:=1 to 5 do sr1:=sr1+StudArr[i].balls[k]; sr1:=sr1/5; {это лучше сделать функцией}
            sr2:=0.0; for k:=1 to 5 do sr2:=sr2+StudArr[j].balls[k]; sr2:=sr2/5; {это лучше сделать функцией}
            if sr1 > sr2 then begin
                s := StudArr[i];
                StudArr[i] := StudArr[j];
                StudArr[j] := s
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to n do begin
        sr1:=0.0; for k:=1 to 5 do sr1:=sr1+StudArr[i].balls[k]; sr1:=sr1/5; {это лучше сделать функцией}
        writeLn(StudArr[i].Fio,' ', sr1:0:2);
    end;