Помогите найти задачу в вашем форуме., сколько повторений элементов в массиве Опции

[LOVE133]

Не могу найти такую задачу на форуме. Дан одномерный , массив состоящий из слов. Найти сколько раз каждое слово встречается в массиве. все слова с маленькой буквы , остается только их подсчитать. Помогите найти такую задачу, я уверена, что ее уже решали . Заранее спасибо!

[volvo]

To: LOVE133
Даже если НЕ решали, что сложного? Сортируешь массив любым из описанных здесь способов:
FAQ: Методы сортировок
и потом проходишь по отсортированному массиву чем-то вроде такого цикла:

i := 1;
repeat
  current := arr[i]; count := 1;
  while (arr[i+1] = current) and (i <= n) do begin
    inc(i); inc(count);
  end;
  writeln('слово: ', current, ' содержится ', count, ' раз' );
  inc(i);
until i > n;

[LOVE133]

я знаю, что все здесь несложно, просто опыта маловато, поэтому зачастую правильный алгоритм не работает из-за синтаксических ошибок. Но большое спасибо, выручили! )