Цитата:
Сообщение от Solom1k
2.В ЭВМ поступают фамилии и результаты N участников соревнований по плаванию и их фамилии. Выдать на печать результаты трех лучших участников и их фамилии. Считать, что результаты регистрирует фотофиниш и результаты спортсменов различны.
|
Код:
Const
N=12;
Var
Surn:Array[1..N] of String;
Time:Array[1..N] of Real;
TimeD:Real;
SurnD:String;
i,j:Byte;
Begin
for i:=1 to N do
begin
Write('Surname: ');
Readln(Surn[i]);
Write('Time: ');
Readln(Time[i]);
end;
Writeln;
for i:=1 to N-1 do
for j:=1 to N-i do
if Time[j]>Time[j+1] then
begin
TimeD:=Time[j];
Time[j]:=Time[j+1];
Time[j+1]:=TimeD;
SurnD:=Surn[j];
Surn[j]:=Surn[j+1];
Surn[j+1]:=SurnD;
end;
Writeln('Best:');
for i:=1 to 3 do writeln(Surn[i]+' (',Time[i]:0:2,')');
Readln
End.