Жюри олимпиады для подтверждения итогов должно выделить трех победителей в индивидуальном зачете из 24 участников и опре

[Botan747]

Прошу помочь с задачей
масив создать смогу, смогу заполнить его вот только как провести сортировку
Будьте добры помогите пожалуйста)

Жюри олимпиады для подтверждения итогов должно выделить трех победителей в индивидуальном зачете из 24 участников и определить команду-победителя Данные о каждом участнике содержат количество набранных баллов и номер команды Составить программу для розвязаывания задачи

[Serge_Bliznykov]

если бы Вы только знали, сколько разных алгоритмов сортировки придумали...

Вот, простейший, просто в качестве рабочего примера...

  {теперь собственно сортировка}

  {сортировка методом "пузырька" (методом простого выбора )

  Выбирается максимальный элемент массива
  и меняется местами с первым элементом массива.
  Затем процесс повторяется с оставшимися элементами и т. д. }

    for i := 1 to cntRecord - 1 do begin
      IndexMin := i; {предварительно считаем, что первый элемент наименьший}
      {ищем индекс минимального элемента}
      for j := i + 1 to cntRecord do
        if ВашМассив[j] < ВашМассив[IndexMin] then IndexMin := j;

      {меняем местами элементы массива с индексами i и IndexMin
         (ну, если они не равны, конечно) }
      if i <> IndexMin then begin
        t := ВашМассив[IndexMin];
        ВашМассив[IndexMin] := ВашМассив[i];
        ВашМассив[i] := t;
      end;
    end;

  {всё. сортировка завершена}

[Botan747]

Спасибо тебе большое Serge_Bliznykov) Сейчас попробую применить сортировку