Question

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

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

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

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

Вводится целое число торговцев n (1 <= n <= 50)

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

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

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

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

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

Answer 1

// PascalABC.NET 3.3

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