Вопрос по информатике:
Дана последовательность целых чисел, заканчивающаяся числом 0. Требуется вывести на экран числа этой последовательности, которые были больше среднего арифметического. Программе дается последовательность целых чисел. Гарантируется, что объём входных данных не превышает 512 килобайт. Все числа по модулю не превосходят 2^30.
- 05.02.2015 01:56
- Информатика
- remove_red_eye 10545
- thumb_up 26
Ответы и объяснения 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.
- 06.02.2015 20:20
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.