Помогите пожалуйста. Ребята, буду очень признателен.Дан массив из n слов произвольной

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

Задать свой вопрос
Владислав Тегай
Примите к сведению, пожалуйста, что здесь далеко не ко всем подходит воззвание "ребята".
1 ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadlnInteger('Количество слов в массиве:');
  var a:=ReadArrString('Введите слова, каждое с новейшей строчки:',n);
  var s:=a.Select(w-gt;(w,w.Length));
  var lm:=s.Max(t-gt;t[1]);
  s.Where(t-gt;t[1]=lm).Take(2).Select(t-gt;t[0]).JoinIntoString('')
      .Where(c-gt;c in 'AEIOUY').Distinct.Println
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт