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.

Answer 2

Конечно, я могу помочь вам с этим заданием. Вот пример программы на языке Python, которая решает данную задачу:

pythonCopy code
N = int(input("Введите количество строк: "))
strings = []

# Ввод строк
for i in range(N):
    string = input("Введите строку: ")
    strings.append(string)

# Вычисление средней длины строк
total_length = sum(len(string) for string in strings)
average_length = total_length / N

# Вывод строк, длина которых больше средней
for string in strings:
    if len(string) > average_length:
        print(string, len(string))

Программа сначала запрашивает у пользователя количество строк (N). Затем она запрашивает ввод N строк и сохраняет их в списке strings.

После этого программа вычисляет среднюю длину всех строк, пройдя по списку strings и сложив длины всех строк с помощью функции sum(). Затем она делит общую длину на количество строк, чтобы получить среднюю длину (average_length).

Затем программа проходит по каждой строке в списке strings и проверяет, больше ли её длина средней длины (average_length). Если да, то эта строка выводится на консоль вместе с её длиной, используя функцию print().

Надеюсь, это поможет! Если у вас возникнут вопросы, пожалуйста, дайте мне знать.