Известны фамилии и результаты 15 спортсменов - бегунов, найти и вывести ** экран...

Question

Известны фамилии и результаты 15 спортсменов - бегунов, найти и вывести на экран информацию о трёх призерах соревнований (фамилии и результаты) о спортсмене с худшим результатом, о среднем результате среди всех спортсменов. НА ПАСКАЛЕкак можно проще написать, тоесть без использования сложных элементов.

Answer 1

begin

 var L := new List<(string, real)>;

 

 for var i := 1 to 15 do

   L.Add((ReadlnString('Фамилия:'),

          ReadlnReal('результат:')));

 

 L := L.OrderByDescending(x -> x[1]).ToList;

 

 Println('Призеры:');

 L.Take(3).ForEach(x -> begin Println(x[0], x[1]) end);

 

 Println('Худший результат: ', L[14][0], L[14][1]);

 Println('Средний резульат:', L.Select(x -> x[1]).Average)

end.

Comments

PascalABC.NET