Сортировка,Рекурсия - Pascal - Ответ 382082

type
  rec=record
    Sur:string[20];
    P1,P2,P3:real;
    Place:integer;
  end;
var
  a,b:array[1..1000]of rec;
  i,j,max,pl:integer;
begin
  writeln('Ââåäèòå êîëè÷åñòâî ñïîðòñìåíîâ...');
  readln(max);
  for i:=1 to max do
  begin
    write('Ôàìèëèÿ: ');
    readln(a[i].Sur);
    write('Ïåðâàÿ ïîïûòêà: ');
    readln(a[i].P1);
    write('Âòîðàÿ ïîïûòêà: ');
    readln(a[i].P2);
    write('Òðåòüÿ ïîïûòêà: ');
    readln(a[i].P3)
  end;
  {âûïîëíÿåì ñîðòèðîâêó ìàññèâà}
  for i:=1 to max do
    for j:=i to max do
      if (a[i].P1+a[i].P2+a[i].P3)<(a[j].P1+a[j].P2+a[j].P3) then
      begin
        b[i].Sur:=a[i].Sur;
        a[i].Sur:=a[j].Sur;
        a[j].Sur:=b[i].Sur;
        b[i].P1:=a[i].P1;
        a[i].P1:=a[j].P1;
        a[j].P1:=b[i].P1;
        b[i].P2:=a[i].P2;
        a[i].P2:=a[j].P2;
        a[j].P2:=b[i].P2;
        b[i].P3:=a[i].P3;
        a[i].P3:=a[j].P3;
        a[j].P3:=b[i].P3
      end;
  {âûâîäèì âñåõ ñïîðòñìåíîâ}
  writeln('Òàáëèöà ðåêîðäñìåíîâ:');
  for i:=1 to 3 do
    writeln(a[i].Sur,' ',a[i].P1,' ',a[i].P2,' ',a[i].P3,' ',i,' ìåñòî')
end.