Требуется ввести n строк с консоли. вывести на - вопрос №10174639 от Rımma7 16.04.2020 08:48

Question

Информатика: Требуется ввести n строк с консоли. вывести на консоль те строки, длина которых меньше (больше) средней, а также длину. входные данные - вводится n строк, длина каждой строки не больше 1000 символов. пустых строк нет. 1 = n = 1000 ответ должен содержать все строки, у которых длина больше средней длины всех строк, а также их длину.

Rımma7 · Answer

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.

Требуется ввести n строк с консоли. вывести на консоль те строки, длина которых меньше (больше) сред