Question

Функция, которая возвращает среднюю длину слов текста
Даны произвольные текстовые файлы.
Помогите, пожалуйста.

Answer 1

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

function AvgLen(fn:string):real;
begin
  if FileExists(fn) then
    Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
  else
    Result:=0
end;

begin
  Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
end.

Примеры
Имя файла: input.txt
5.42

Имя файла: Pushkin2.txt
5.20

Имя файла: Pascal.txt
7.02

5b84d453578efaabc72d2525221be827.txt

b87fa4bfd5e6af0e1bb3c819dd9d0f5f.txt

053d413ae9061dd29e1a3fd56cd29c5f.txt