Вопрос по информатике:
Pascal.дана последовательность чисел .вывести на экран суммы положительных и отрицательных чисел данной последовательности.
- 03.06.2018 17:32
- Информатика
- remove_red_eye 7995
- thumb_up 9
Ответы и объяснения 1
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Begin
var ar:=ReadArrInteger(n);
writeln('Сумма положительных=',ar.Where(x -> x>0).sum);
writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum);
end.
Пример ввода:
1
-2
3
4
-5
-6
7
8
9
10
Пример вывода:
Сумма положительных=42
Сумма сумма отрицательных=-13
- 04.06.2018 16:53
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.