Дан массив символов, образующий несколько слов. Вывести на экран слово с максимальным количеством гласных букв. Основной код я сделал и он правильный, осталось только найти максимальное кол-во гласных букв в слове и вывести это слово
код:
program lab_14;
const n=30; {максимальная размерность массива}
var a: array[1..n] of char; {объявление одномерного символьного массива}
kol: integer; {переменная для нахождения количества введенных слов}
k: integer; {вс переменная для хранения количества введенных
символов}
i: integer; {счетчик цикла}
begin
{Ввод с клавиатуры длины исходной строки}
writeln('Укажите суммарную длину вводимой строки, включая пробелы. Строка
не должна превышать', n , 'символов.');
k:=0;
repeat {Вводим ограничение на вводимое значение k}
readln(k)
until (k>1) and (k<30);
writeln('Введите строку и в конце нажмите клавишу Enter. Максимальная длина
введенной строки', k , 'символов, включая пробелы.');
{Ввод исходной строки}
for i:=1 to k do
read(a[i]);
{Первоначально предполагаем, что пользователь не ввел ни одного слова}
kol:=0;
{Вывод на экран введенной строки}
writeln('Исходная строка:');
for i:=1 to k do
write(a[i]);
writeln;