Question

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

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.