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.

Answer 2

Для решения этой задачи на Паскале, вы можете использовать массивы для хранения фамилий и результатов спортсменов. Затем найдите трёх призеров, спортсмена с худшим результатом и средний результат. Вот простой пример решения задачи:

pascalCopy code
program SportsResults;

const
  NumOfRunners = 15;

var
  Runners: array[1..NumOfRunners] of string;
  Results: array[1..NumOfRunners] of real;
  i: integer;
  totalResults: real;
  minResult, maxResult: real;
  minRunner, maxRunner: string;

begin
  writeln('Введите фамилии и результаты 15 спортсменов:');

  for i := 1 to NumOfRunners do
  begin
    write('Фамилия ', i, ': ');
    readln(Runners[i]);
    write('Результат ', i, ': ');
    readln(Results[i]);
  end;

  // Поиск призеров
  maxResult := Results[1];
  minResult := Results[1];

  for i := 2 to NumOfRunners do
  begin
    if Results[i] > maxResult then
    begin
      maxResult := Results[i];
      maxRunner := Runners[i];
    end;

    if Results[i] < minResult then
    begin
      minResult := Results[i];
      minRunner := Runners[i];
    end;
  end;

  writeln;
  writeln('Призеры соревнований:');
  writeln('1 место: ', maxRunner, ' - ', maxResult:0:2);
  writeln('2 место: ', minRunner, ' - ', minResult:0:2);

  // Поиск среднего результата
  totalResults := 0;
  for i := 1 to NumOfRunners do
    totalResults := totalResults + Results[i];

  writeln;
  writeln('Средний результат среди всех спортсменов: ', (totalResults / NumOfRunners):0:2);

  readln;
end.

Обратите внимание, что в этом примере я предположил, что результаты спортсменов представлены в виде вещественных чисел (например, время в секундах). Если вам нужны целочисленные результаты, просто замените real на integer.