Вопрос по информатике:
Дан одномерный массив А из 12-ти элементов. Найти суммы отрицательных элементов и суммы положительных элементов
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.12.2015 23:57
- Информатика
- remove_red_eye 16574
- thumb_up 17
Ответы и объяснения 1
Var A:array [1..12] of integer; sumpol, sumotr:integer; i:integer; Begin For i:=1 to 12 do read A[i]; sumotr:=0; sumpol:=0; For i:=1 to 12 do begin if A[i]<0 then sumotr:=sumotr+A[i] else sumpol:=sumpol+A[i]; Writeln(sumpol); Writeln(sumotr); End.
- 12.12.2015 00:35
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.