• Выясните лучший результат в соревнованиях по плаванию для N спортсменов и фамилию этого спортсмена.
    Написать программу в Pascal ABC. Прошу помощи, хотя бы идею

Ответы 2

  • Спасибо, братюнь, я уже сам решил)
    • Автор:

      aniya
    • 5 лет назад
    • 0
  • Как говорится, это вам не С++  - тут все очень быстро и коротко ))))// PascalABC.NET 3.3, сборка 1531 от 30.08.2017// Внимание! Если программа не работает, обновите версию!begin  var L:=new List<(string,real)>;  // это не решение задачи, это ввод данных  Writeln('Введите в каждой строке фамилию, пробел, время');  var i:=1;  repeat    var s:=ReadlnString(i+': ');    if s[1]='*' then break;    var w:=s.ToWords;    L.Add(Rec(w[0],real.Parse(w[1])));    i+=1;  until false;  // а теперь само решение  Writeln(L.MinBy(x->x[1]))end.ПримерВведите в каждой строке фамилию, пробел, время1:  Иванов 10.32:  Петров 9.93:  Уточкин 10.14:  *(Петров,9.9)
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years