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

Question

Информатика

Мирон

17 сентября, 07:11

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

+5

Ответы (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.