Предмет:
ИнформатикаАвтор:
kendalxvxfbegin
var fn := ReadlnString('Введите имя файла:');
if not FileExists(fn) then
begin
Print('Файл не найден');
exit
end;
var a := ReadAllText(fn).ToWords; // массив слов
Println('Количество слов в файле:', a.Length);
var lmax := a.Select(w -> w.Length).Max;
Println('Перечень слов с максимальной длиной');
a.Where(w -> w.Length = lmax).Println
end.
Во втором вложении дается тестовый файл Pushkin2.txtАвтор:
skipperlillДобавить свой ответ
Предмет:
МатематикаАвтор:
conrad8Ответов:
Смотреть
Предмет:
МатематикаАвтор:
freewayОтветов:
Смотреть
Предмет:
Русский языкАвтор:
dicksonОтветов:
Смотреть