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