PascalABC.net  Если можно то сделайте по простомуКак и предполагалось, с ростом

PascalABC.net Если можно то сделайте по простому

Как и предполагалось, с ростом городка увеличилось и количество купцов, желающих тут вести торговлю. Желающих было настолько много, что решено было выдавать лицензию только тем торговцам, валютный оборот которых превышает 1000 сентиннеалей.

Ваша задачка - избрать из n торговцев тех, чей оборот превышает тыщу сентиннеалей. И найти сколько в итоге купцов получили право на торговлю и какой суммарный оборот они обеспечат вашему городку.

Формат входных данных

Вводится целое число купцов n (1 lt;= n lt;= 50)

Вводится n целых чисел k, где k - валютный оборот каждого из них (1lt;=klt;=50000)

Формат выходных данных

Выводится два числа - количество лавочников, чей оборот превысил 1000 сентиннеалей и суммарный оборот, который обеспечивают это купцы.
Образцы

входные данные
5
1000
2000
3000
2
2

выходные данные
2 5000

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3

begin
  var n:=ReadInteger;
  var k:=ReadArrInteger(n);
  var a:=k.Where(x-gt;xgt;1000);
  Print(a.Count,a.Sum);
end.

Пример:
5
1000
2000
3000
5000
900
3 10000

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт