Вопрос по информатике:
PascalABC.net Если можно то сделайте по простому
Как и предполагалось, с ростом города увеличилось и количество купцов, желающих здесь торговать. Желающих было настолько много, что решено было выдавать лицензию только тем купцам, денежный оборот которых превышает 1000 сентиннеалей.
Ваша задача - выбрать из n торговцев тех, чей оборот превышает тысячу сентиннеалей. И определить сколько в итоге торговцев получили право на торговлю и какой суммарный оборот они обеспечат вашему городу.
Формат входных данных
Вводится целое число торговцев n (1 <= n <= 50)
Вводится n целых чисел k, где k - денежный оборот каждого из них (1<=k<=50000)
Формат выходных данных
Выводится два числа - количество торговцев, чей оборот превысил 1000 сентиннеалей и суммарный оборот, который обеспечивают это торговцы.
Примеры
входные данные
5
1000
2000
3000
2
2
выходные данные
2 5000
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.05.2015 04:48
- Информатика
- remove_red_eye 11968
- thumb_up 26
Ответы и объяснения 1
begin
var n:=ReadInteger;
var k:=ReadArrInteger(n);
var a:=k.Where(x->x>1000);
Print(a.Count,a.Sum);
end.
Пример:
5
1000
2000
3000
5000
900
3 10000
- 22.05.2015 18:14
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.