Дан массив фамилий студентов 1-го курса и массив их результатов в беге на 100 метров. Составьте команду из четырех лучших бегунов для участия в эстафете. — Правильный ответ на вопрос найдете ниже

Ответ: const  n=6;  a:array[1..n] of string=    (‘Иванов’,’Петров’,’Сидоров’,’Козлов’,’Баранкин’,’Пупкин’);  b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);  // массивы используются чтобы избежать в примере ручного вводаvar  i,j,k:integer;  t:real;  s:string;  sa:array[1..n] of string;  sb:array[1..n] of real;begin  for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end;  // сортировка по возрастанию времени  for i:=1 to n-1 do    for j:=1 to n-1 do      if sb[j]>sb[j+1] then begin        s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s;        t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t        end;  // вывод  for i:=1 to 4 do Writeln(sa[i],’ — ‘,sb[i])end.ПримерПетров — 13.9Козлов — 14.2Баранкин — 14.5Иванов — 15