Вопрос по информатике:
Дано N произвольных чисел найти сумму положительных чисел в одну перемену и сумму отрицательных чисел в другую. Пожалуйста помогите! Решать программу '' пока''. Заранее спасибо
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.09.2018 14:01
- Информатика
- remove_red_eye 16325
- thumb_up 5
Ответы и объяснения 1
var plus, minus, n, a, i: integer;
begin
plus := 0;
minus := 0;
writeln('Введите кол-во чисел.');
readln(n) ;
for i := 1 to n do
begin
writeln('Введите число');
readln(a);
if a > 0 then plus := plus + a
else minus := minus + a;
end;
writeln(plus);
writeln(minus);
end.
- 25.09.2018 11:24
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.