Напишите программу на Паскале для определения времени победителя парусной регаты. Участники регаты стартуют

Описание: Для решения данной задачи нам необходимо написать программу на Паскале, которая будет определять время победителя парусной регаты. Программа будет принимать на вход количество яхт, принимавших участие в регате (n), где n - число от 1 до 100. Затем для каждой яхты вводятся два числа: часы и минуты, затраченные на прохождение маршрута.

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

Пример использования:

var

  n, i, hours, minutes, winnerHours, winnerMinutes: integer;



begin

  readln(n);

  

  for i := 1 to n do

  begin

    readln(hours, minutes);

    if (i = 1) or ((hours * 60 + minutes) < (winnerHours * 60 + winnerMinutes)) then

    begin

      winnerHours := hours;

      winnerMinutes := minutes;

    end;

  end;



  winnerHours := (winnerHours + 12) mod 12;

  

  writeln("Время победителя регаты: ", winnerHours, " часов ", winnerMinutes, " минут");

end.

Совет: Чтобы лучше понять работу программы, рекомендуется просмотреть материалы по работе с переменными, операторами условия и циклами в языке Паскаль.

Задание для закрепления: Напишите программу на Паскале для определения времени победителя парусной регаты, если участвовало 3 яхты со временем прохождения 2 часа 30 минут, 1 час 45 минут и 4 часа 15 минут соответственно.