Question

Требуется ввести N строк с консоли. Вывести на консоль те строки, длина которых меньше (больше) средней, а также длину.
Входные данные - вводится N строк, длина каждой строки не больше 1000 символов. Пустых строк нет.
1 <= N <= 1000
Ответ должен содержать все строки, у которых длина больше средней длины всех строк, а также их длину.

Answer 1

begin

 var n := ReadlnInteger; // ввод n

 var a := ReadArrString(n); // ввод строк

 var m := a.Select(p -> p.Length).Average; // средняя длина

 Writeln;

 a.Where(p -> p.Length > m).Select(p -> $'{p} {p.Length}').PrintLines

end.