Строка из слов, разделённых пробелами. Найти среднее количество символов в словах четной длины (Паскаль)

[marystupidyeah]

Всем доброго времени суток=)
прошу помочь написать программу :

Дана строка символов. Группу символов, разделенную с одной или с обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов, назовем словом.
Определить среднее количество символов в словах четной длины. Если слов с четной длиной нет, то выдать соответствующее текстовое сообщение.
п.с. кое-что в программировании понимаю, но все же недостаточно для выполнения этого задания)

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
В последующем, темы с названием наподобие "Задача на Делфи" будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Serge_Bliznykov]

сходите в поиск. Как выделить слова в строке ну десятки (если не сотни) раз решалось на форуме. Да и не сложно это совсем!

В чём сложности? Количество символов в слове даст функция Length(OneWord)
Чётной длины - if (Length(OneWord) mod 2) = 0 then ...чётное..
Или if Not Odd(Length(OneWord)) then ...чётное..

[marystupidyeah]

большое спасибо, а "среднее количество символов" не подскажите какая формула?

[Mad_Cat]

среднее количество символов=количество всех символов / количество слов

[marystupidyeah]

большое спасибо очень помогли

[marystupidyeah]

не могли бы посмотреть почему ошибка

Program lala;
Uses crt;
Var
S,ss: string;
i,n: integer;  m :char;
Begin
Clrscr;
Writeln('Vvedite frazu');
Read (s);
n:=1;
ss:='';
for i:=1 to length(s) do
if not(s[i] in m) then
begin
s:=s+1;
m:=m+[s[i]];
if s[length(s)]mod 2;' ' then
else
writeln('nechetnoe')

End;
Writeln(ss);

End

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.