Дан текст найти слово,в котором максимальное количество гласных букв

Question

Дан текст найти слово,в котором максимальное количество гласных букв

Answer 1

PascalABC.NET 3.3

begin
  var gl:=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
  var a:=ReadlnString('>').ToWords(' ',',','.');
  var b:=ArrFill(a.Length,0);
  for var i:=0 to a.Length-1 do
   b[i]:=a[i].Where(x->x in gl).Count;
  writeln(b.Max);
  foreach var i in b.IndexesOf(i->i=b.Max) do Println(a[i]);
end.

Пример:
> Дан текст найти слово,в котором максимальное количество гласных букв
5
максимальное

Answer 2

Begin 
var s:=readlnstring; 
var gl:='АЕИОУЫЯЁЮЭ'; 
var m:=s.ToWords; 
var k:=m.Length; 
var b:=new integer[k]; 
for var i:=0 to k-1 do   
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;   
Writeln(m[b.IndexMax])
end.

Comments

не могу исправить) время кончилось

---

for i:=0 to index.Length-1 do begin
if index[i]>maxi then maxi:=index[i];
end;
for i:=0 to index.Length-1 do
if maxi=index[i] then begin
maxi:=i;
writeln(m[maxi-1]);
break;
end;
end.

---

это концовка

---

исправил

---

но уже нашел как проще

---

опять не могу изменить чтобы абзацы сделать