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

Даны два массива А(А1,А2,...Аn) и В(В1,В2,...Вn). найти сумму отрицательных элементов
Гость
Ответ(ы) на вопрос:
Гость
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.          
Не нашли ответ?
Ответить на вопрос
Похожие вопросы