Задача

[D1SK]

В соревновании из прыгунов в высоту принимает участие 12 спортменив. Разработайте алгоритм и программу, которая печатает фамилии и результат лучшего спортсмена после выступления каждого из них.


Помогите пожалуста)

[ViktorR]

Могу предложить, как вариант.
Т.А. Павловская, Паскаль. Программирование на языке высокого уровня.
стр.137, листинг 5.2.
Копируем программу для работы с односвязным списком и слегка дорабатываем (оставляем формирование списка, вставка, вывод).
Алгоритм:
1. Запросить Ф.И.О и результат спортсмена (в балах).
2. Если это первый спортсмен, то сформировать первый элемент списка
иначе вставить элемент в список по ключу (баллам).
3. Вывести список на экран.
4. Увеличить счётчик.
5. Если счётчик не больше 12, то перейти на п.1.

Можно и через массив записей, но тогда почти всё писать самому.
Например:

const n = 12;
Type TSportsmen = record
         FIO: string[25];
         Bal: word;
        end;
        Tmas = array[1..n] of TSportsmen;
var Blok:Tmas;
      i : integer;
     ...
begin
   for i:= 1 to n do begin
       {запросить ФИО и баллы}
        Blok[i].FIO:='фамилия_спортсмена";
        Blok[i].Bal:= Ballov_nabral;
        {сортировать - вариант простой, хотя и не кошерный ...:)}
       {вывести отсортированный массив на экран}
   end;
end.

Как-то так ...