Требуется ввести N строк с консоли. Вывести на консоль те строки, длина которых меньше (больше) средней, а также длину.
Входные данные - вводится N строк, длина каждой строки не больше 1000 символов. Пустых строк нет.
1 <= N <= 1000
Ответ должен содержать все строки, у которых длина больше средней длины всех строк, а также их длину.
Входные данные - вводится N строк, длина каждой строки не больше 1000 символов. Пустых строк нет.
1 <= N <= 1000
Ответ должен содержать все строки, у которых длина больше средней длины всех строк, а также их длину.
More Questions From This User See All
Answers & Comments
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.