Туплю с задачкой тут

Pascal/
Определить сколько фамилий в списке оканчиваются на гласную букву, на гласную разобрался, а как оканчивается нет.

 

Цикл с счетчиком мб

 

Код:

var s:string;
    i,count:integer;
begin
    writeln('Вводите фамилии через пробел');
    read(s);
    s:=s+' ';
    count := 0;
    for i:=1 to s.length - 1 do
       if (s[i] = 'а') and(s[i+1] = ' ') or 
       (s[i] = 'е') and(s[i+1] = ' ')or
       (s[i] = 'ё') and(s[i+1] = ' ')or
       (s[i] = 'и') and(s[i+1] = ' ')or
       (s[i] = 'о') and(s[i+1] = ' ')or
       (s[i] = 'у') and(s[i+1] = ' ')or
       (s[i] = 'ы') and(s[i+1] = ' ')or
       (s[i] = 'э') and(s[i+1] = ' ')or
       (s[i] = 'ю') and(s[i+1] = ' ')or
       (s[i] = 'я') and(s[i+1] = ' ')
       then
           count:= count + 1;
   writeln('Количество фамилий в списке оканчивающихся на гласную букву=',count);
end.

P.S. Ты не указал для какого списка: вертикального или горизонтального. Я сделал горизонтальный =)