Напишите программу для решения следующей . участники парусной регаты стартовали одновременно. на финише фиксировалось время прохождения маршрута каждой яхтой (в часах и минутах). определите время победителя регаты (в часах и минутах). известно, что соревнования проходили в течение 12 часов. программа получает на вход количество яхт, принимавших участие в регате n (1 ≤ n ≤ 31), затем для каждой яхты вводится два числа: часы и минуты, затраченные на прохождение маршрута. входные данные: 2; 2 35; 2 50выходные данные: 2 50паскаль

program xxx;

    var i, m, p, n : integer;

                t : array[1..31] of real;

begin

  writeln('введите температуру ')

  for i: =1 to 31 do

        readln(t[i]);

  m: =0; p: =0; n: =0;

  for i: =1 to 31 do

      begin

            if t[i]< 0 then m: =m+1;

            if t[i]> 0 then p: =p+1;

            if t[i]=0 then n: =n+1

      end;

  writeln('дней с отрицательной температурой было - ', m);

  writeln('дней с положительной температурой было - ', р);

  writeln('дней с нулевой температурой было - ', n);

  readln

end.

буфер обмена,перетаскивание,сохранение в файл

бег - бог - бок - бак - мак - маг -шаг

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей