Var ar:array[1..n] of re; i,j,c:integer; cs:string; begin; for i:=1 to n do begin write('Введите имя участника №',i,':'); readln(ar[i].name); write('Введите результат участника №',i,':'); readln(ar[i].res); end; for i:=1 to n-1 do for j:=i to n do if ar[i].res>ar[j].res then begin; c:=ar[i].res; ar[i].res:=ar[j].res; ar[j].res:=c; cs:=ar[i].name; ar[i].name:=ar[j].name; ar[j].name:=cs; end;for i:=1 to n do writeln(i,' ',ar[i].name,' ',ar[i].res); end.
Пример ввода: Двачевская 23 Персунов 22 Хацуне 3 Пример вывода: 1 Хацуне 3 2 Персунов 22 3 Двачевская 23
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var s:=Range(1,ReadInteger('n='),2).Select(x->Rec(x,x*x,x*x*x)); foreach var e in s do Writeln(e.Item1:10,e.Item2:10,e.Item3:10) end.
writeln - смена строки после ввода