Question

Se considera tabloul [1...20]de numere intregi.Sa se scrie un program care va calcula suma elementelor pozitive si celor negative
Va rog(Pascal)

Answer 1

var
 
 a:array[1..20] of integer;
 n1,n2,i:integer;
 
begin

 for i:=1 to 20 do
  begin
   read(a[i]);
   if(a[i]<0) then
    n2+=a[i]
   else if(a[i]>0) then
    n1+=a[i];
  end;
  
 writeln(n1);
 writeln(n2);

end.