Задача на строку.

[fikret123]

Дана строка символов. Слова в строке разделены одним пробелом.
В заданном предложении указать слово, в котором доля гласных (А,Е,И,О) максимальна.

помогите плиз

напишите да или хоть подскажите уже весь день делаю не получается

[alexBlack]

А где код ? Хотя бы что-то ?
Что конкретно не получается ?

[fikret123]

ну я нахожу количество слов
в первом слове только получается найти эти буквы
а вот чтоб ко всему предложению незнаю ..

[alexBlack]

А зачем количество слов ?

В цикле проходим все символы строки.
Находим очередной пробел. Все, что до предыдущего пробела - очередное слово.
В этом слове проверяем количество гласных (можно делать это по ходу цикла). Если оно больше, чем в предыдущем слове, запоминаем это слово.

Какое действие непонятно ?

[fikret123]

у меня же не 2 слова всего там нужно ввести строку где скоко угодно может быть пробелов

напиши да блин не фига не получается

var s,sub:string;
p,i,j,k,max:integer;
begin
writeln ('BBeguTe CTpoKy');
readln(s);
p:=pos(' ',s);
sub:=copy(s,1,p);
k:=0;
for j:=1 to length(sub) do if (sub[j]='a')or(sub[j]='e') then k:=k+1;
for i:=length(sub) to length(s) do
if (s[i]='a')or(s[i]='e')or(s[i]='o') then
writeln(k);
end.

[alexBlack]

P := 1; // позиция за последним найденным пробелом
G := 0; // последнее количество найденных гласных
W:= ''; // последнее найденное слово

C:= 0; // текущее количество гласных
В цикле проходим все символы строки.
for i:=1 to length(S) do begin
if S[i] in ['АЕИО'] then inc(C);

Находим очередной пробел.
if (S[i] = ' ') or (i = length(S)) then begin

Все, что до предыдущего пробела -
очередное слово.
В этом слове проверяем количество гласных (можно делать это по ходу цикла). Если оно больше, чем в предыдущем слове, запоминаем это слово.
if C > G then begin
G := C;
W := слово от позиции P до позиции i


end;
// Запоминаем позицию после пробела
P := i+1;
C := 0; // сбрасываем счетчик гласных

[fikret123]

как программу напиши да
я не понял

[alexBlack]

var S, W:String;
    P, G, C, i : integer;
begin
   S := 'строка слов разделенных пробелом';
   P := 1; G := 0; W:= ''; C:= 0;
   for i:=1 to length(S) do begin
      if (S[i] in ['а','е','и','о']) then inc(C);
      if (S[i] = ' ') or (i = length(S)) then begin
         if C > G then begin
            G := C;
            W := copy(S, P, i-P+1);
         end;
         P := i+1;
         C := 0;
      end;
   end;
   writeLn(W);

[fikret123]

спасибо, а че делает inc

[alexBlack]

Ну, приплыли. А я распинаюсь.
Слово increment о чем нибудь говорит ?
А F1 нажать сил нет ?