Программа на паскале в текстовом файле записано 10 имен, по одному с новой строки . Вывести в другой тестовый файл самое длинное имя .

Question

Ирина 09.25.18

Решено

53

ОТВЕТЫ

begin
var a:=ReadAllLines('input.txt');
var i:=a.Select(s->s.Length).ToArray.IndexMax;
WriteLines('output.txt',Seq(a[i]))
end.

47

Отв. дан 2021-11-14 00:00:00 Ярослав