Дана последовательность целых чисел, заканчивающаяся числом 0. Требуется вывести на экран числа этой последовательности, которые были больше среднего арифметического. Программе дается последовательность целых чисел. Гарантирует...
Дана последовательность целых чисел, заканчивающаяся числом 0. Требуется вывести на экран числа этой последовательности, которые были больше среднего арифметического. Программе дается последовательность целых чисел. Гарантируется, что объём входных данных не превышает 512 килобайт. Все числа по модулю не превосходят 2^30.
Гость
Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы