Выясните лучший результат в соревнованиях по плаванию для n спортсменов и фамилию этого спортсмена. написать программу в pascal abc. прошу , хотя бы идею

118

412

Посмотреть ответы 2

Ответы на вопрос:

KarinaKORS

Информатика

4,6(5 оценок)

Как говорится, это вам не с++ - тут все быстро и коротко // 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(; i+=1; until false; // а теперь само решение writeln(l.minby(x-> x[1])) end. пример введите в каждой строке фамилию, пробел, время 1: иванов 10.3 2: петров 9.9 3: уточкин 10.1 4: * (петров,9.9)