Гласные буквы в массиве, Гласные буквы в массиве Опции

[Kristina20]

Приветик!
Люди, помогите пожалуйста написать программу..Очень нужно, так как сдавать уже в пятницу.
Я конечно понимаю что она лёгкая.
Создать массив, который заполняют 15 словами длиной 5-12 символов.
Вывести на экран, сколько процентуально каждое слово содержит гласных..
Хоть убейте, не доходит,как именно найти эти гласные!!!  UZD7.PAS ( 630 байт ) Кол-во скачиваний: 705

[volvo]

Хоть убейте, не доходит,как именно найти эти гласные!

Ну, начала же делать правильно

Только цикл должен выглядеть так:

for i:=1 to n do begin
  count := 0; { <--- Будем считать, сколько гласных в i-ом слове }
  for j:=1 to length(mas[i]) do
    if upcase(mas[i][j]) in ['A', 'E', 'I', 'O', 'U'] then inc(count);
  writeln('word ', mas[i], ' contains ', count/length(mas[i]), '% of vowels');
end;

И еще одно: секция Const должна быть описана ПОСЛЕ Uses...

[Kristina20]

ОГРОМНОЕ СПАСИБО!!!!!!