Дан одномерный массив А из 12-ти элементов. Найти суммы отрицательных элементов и суммы положительных элементов

Question

Информатика

Санюра

25 февраля, 12:34

Дан одномерный массив А из 12-ти элементов. Найти суммы отрицательных элементов и суммы положительных элементов

+4

Ответы (1)

Знаете ответ на вопрос?

Ладя · Answer 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.