// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrString('Вводите элементы массива построчно'+NewLine,5);
a.Select(t->t.ToLower.MatchValues('[аеёиоуыэюя]').Count).Sum.Println
end.
Пример
Вводите элементы массива построчно
Карл у Клары украл кораллы
А роза упала на лапу Азора
Это просто тест
Наша Маша громко плачет
А у нас нынче понедельник!
43