Дана последовательность целых чисел, заканчивающаяся числом 0. Требуется вывести ** экран...

Question

Дана последовательность целых чисел, заканчивающаяся числом 0. Требуется вывести на экран числа этой последовательности, которые были больше среднего арифметического. Программе дается последовательность целых чисел. Гарантируется, что объём входных данных не превышает 512 килобайт. Все числа по модулю не превосходят 2^30.

Answer 1

//PascalABC.Net 3.1 сборка 1200
uses System;
var
    n: longint;

begin
    var s := new List();
    repeat
        Readln(n);
        if n <> 0 then s.Add(n);
    until n = 0;
    
    Println(s);
    
    var av := s.Average;
    Println(s.Where(x -> x > av));
end.