Даны два массива А (А1, А2, ... Аn) и В (В1, В2, ... Вn). найти сумму отрицательных элементов

Question

Информатика

Фотинья

13 июля, 04:32

Даны два массива А (А1, А2, ... Аn) и В (В1, В2, ... Вn). найти сумму отрицательных элементов

+1

Ответы (1)

Знаете ответ?

Вадимыч · Answer 1

Var

A, B: array[1 ... 1000] of integer;

i, SUM: integer;

begin

SUM:=0;

Readln (n) ;

for i:=1 to n do

Readln (A[i], B[i]) ;

for i:=1 to n do

begin

if A[i]<0 then

SUM:=SUM+A[i];

if B[i]<0 then

SUM:=SUM+B[i];

end;

writeln (SUM) ;

end.