Найти в последовательности слов все слова максимальной длины - PascalABC.NET

Формулировка задачи:

Дана исследуемая последовательность непустых слов. Между соседними словами, стоит запятая - за последним точка.Написать все слова максимальной длин.

Код к задаче: «Найти в последовательности слов все слова максимальной длины - PascalABC.NET»

textual
begin
  var b := ReadlnString('Введите последовательность: ').Split(',.'.ToCharArray(),System.StringSplitOptions.RemoveEmptyEntries).ToArray();
  writeln(string.Join(NewLine, b.Where(t -> t.length = b.Max(s -> s.Length))));
end.

15   голосов, оценка 3.867 из 5


СОХРАНИТЬ ССЫЛКУ