PascalABC.net Если можно то сделайте по простому
Как и предполагалось, с ростом города увеличилось и количество купцов, желающих здесь торговать. Желающих было настолько много, что решено было выдавать лицензию только тем купцам, денежный оборот которых превышает 1000 сентиннеалей.
Ваша задача - выбрать из n торговцев тех, чей оборот превышает тысячу сентиннеалей. И определить сколько в итоге торговцев получили право на торговлю и какой суммарный оборот они обеспечат вашему городу.
Формат входных данных
Вводится целое число торговцев n (1 <= n <= 50)
Вводится n целых чисел k, где k - денежный оборот каждого из них (1<=k<=50000)
Формат выходных данных
Выводится два числа - количество торговцев, чей оборот превысил 1000 сентиннеалей и суммарный оборот, который обеспечивают это торговцы.
Примеры
входные данные
5
1000
2000
3000
2
2
выходные данные
2 5000
PascalABC.net Если можно то сделайте по простому
Как и предполагалось, с ростом города увеличилось и количество купцов, желающих здесь торговать. Желающих было настолько много, что решено было выдавать лицензию только тем купцам, денежный оборот которых превышает 1000 сентиннеалей.
Ваша задача - выбрать из n торговцев тех, чей оборот превышает тысячу сентиннеалей. И определить сколько в итоге торговцев получили право на торговлю и какой суммарный оборот они обеспечат вашему городу.
Формат входных данных
Вводится целое число торговцев n (1 <= n <= 50)
Вводится n целых чисел k, где k - денежный оборот каждого из них (1<=k<=50000)
Формат выходных данных
Выводится два числа - количество торговцев, чей оборот превысил 1000 сентиннеалей и суммарный оборот, который обеспечивают это торговцы.
Примеры
входные данные
5
1000
2000
3000
2
2
выходные данные
2 5000
Как и предполагалось, с ростом города увеличилось и количество купцов, желающих здесь торговать. Желающих было настолько много, что решено было выдавать лицензию только тем купцам, денежный оборот которых превышает 1000 сентиннеалей.
Ваша задача - выбрать из n торговцев тех, чей оборот превышает тысячу сентиннеалей. И определить сколько в итоге торговцев получили право на торговлю и какой суммарный оборот они обеспечат вашему городу.
Формат входных данных
Вводится целое число торговцев n (1 <= n <= 50)
Вводится n целых чисел k, где k - денежный оборот каждого из них (1<=k<=50000)
Формат выходных данных
Выводится два числа - количество торговцев, чей оборот превысил 1000 сентиннеалей и суммарный оборот, который обеспечивают это торговцы.
Примеры
входные данные
5
1000
2000
3000
2
2
выходные данные
2 5000
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Пример на языке программирования PascalABC.net:
program TradeLicense;var
n, i, turnover, merchantsNumber, totalTurnover: integer;
begin
merchantsNumber := 0;
totalTurnover := 0;
readln(n);
for i := 1 to n do
begin
readln(turnover);
if turnover > 1000 then
begin
merchantsNumber := merchantsNumber + 1;
totalTurnover := totalTurnover + turnover;
end;
end;
writeln(merchantsNumber, ' ', totalTurnover);
end.
Программа считывает количество торговцев n, затем для каждого торговца считывает его денежный оборот turnover. Если оборот превышает 1000, увеличивает счетчик торговцев merchantsNumber и добавляет оборот к общему обороту totalTurnover. По завершении всех вводов выводит количество торговцев и суммарный оборот, который обеспечивают эти торогвцы.