Вывести гласные двух самых длинных слов

@BaronVik · Регистрация: 12.09.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые программисты. Мне была задана задача,я её решил,всё работает правильно но вот часть задачи с выводом букв у меня не получается. Заранее благодарен за любую оказанную помощь.

Дан массив не более чем из 10 слов(длинна слов не превышает 80 символов). Символами могут быть только заглавные латинские буквы. Найти и вывести все гласные буквы(без повторений!!!),которые встретились в двух самых длинных словах.

Вот моё решение:

Pascal

Program asd;
uses crt;
type T_str=array [1..10] of string[80];
     T_set=set of char;
var s:T_str;
    alf:T_set;
    n,i,j:byte;
begin
 alf:=['A'..'Z'];
 repeat
  writeln('Vvedite kol-vo slov ne bolee 10');
  readln(n);
   if not (n in [1..10]) then
   begin
    writeln;
    writeln('Osibka');
    writeln;
   end;
  until (n in [1..10]);
  for i:=1 to n do
  begin
   write('vvedite',i,'-e slovo ');
   readln(s[i]);
   for j:=length(s[i]) downto 1 do
   if UpCase(s[i,j]) in ['A', 'E', 'I', 'O', 'U'] then
   write(s[i,j]);
   end;

У меня получается так что я ввожу слово,получаю сразу ответ,а нужно чтобы ответ был в конце программы+нужно без повторений да ещё и только двух самых длинных слов. я попробовал сделать ещё один массив для вывода,но тогда он ничего не выводил. Прошу помогите

@кот Бегемот · 06.11.2010, 19:40

Отсортировать массив слов по убыванию длины, сравнить гласные в 1 и 2 слове

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	06.11.2010, 19:40	2
	Отсортировать массив слов по убыванию длины, сравнить гласные в 1 и 2 слове 0