В правой колонке всё правильно. В первой нужно убрать монитор.
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
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.
<u>Примеры</u>
Имя файла: input.txt
5.42
Имя файла: Pushkin2.txt
5.20
Имя файла: Pascal.txt
7.02
Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>
<span>Нажмите кнопку Кнопка Microsoft Office и выберите пункт Параметры Word. </span>
<span>Щелкните категорию Настройка. </span>
<span>В диалоговом окне Параметры Word в списке Выбрать команды из выберите Все команды. </span>
<span>В списке команд выбранной категории выберите Автоформат и нажмите кнопку Добавить.</span>
<span>Примечание. Можно также добавить команду Выполнить автоформат.</span>