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