Дана последовательность целых чисел, заканчивающаяся числом 0. Требуется вывести на экран числа этой последовательности, которые были больше среднего арифметического. Программе дается последовательность целых чисел. Гарантируется, что объём входных данных не превышает 512 килобайт. Все числа по модулю не превосходят 2^30.
Answers & Comments
Verified answer
//PascalABC.Net 3.1 сборка 1200uses System;
var
n: longint;
begin
var s := new List<longint>();
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.