3. Поиск лексемы с максимальным количеством вхождений в массив строк.

Этот алгоритм реализуется в главной программе с привлечением функции nWordInArr. Ниже приведен фрагмент алгоритма. Необходимо объявить дополнительные переменные в разделе Var.

nWordMax:=0;

for i:=1 to nw do begin

nWMax:=nWordInArr(w[i], w, nw); if nWMax>nWordMax then

begin

nWordMax:=nWMax; s:=w[i]; end;

end;

writeln(' word=', s, ' nWordMax=',nWordMax);

Задание

1.Для файла исходного кода своей программы составить словарь лексем.

2.Найти сколько из них являются «истинными» словами, сколько «истинными» числами, и сколько содержат смешанные символы.

3.Найти лексемы, начинающиеся на слог «согласная + гласная».

4.Найти лексему, содержащую максимальное количество гласных.

5.Найти самую длинную лексему.

6.Подсчитать количество повторений для каждой лексемы.

7.Найти какая лексема встречается в тексте чаще всего.