const n=10;
  var i,k_s,k_r:byte;
  kol,temp:array[1..n]of integer;
begin
  randomize;
  for i:=1 to n do
       begin
       kol[i]:=random(10);
       temp[i]:=random(10)-7;{сами подставьте нужные числа}
       end;
   k_s:=0;
   k_r:=0;
   for i:=1 to n do
         begin
         if temp[i]>=0 then k_r:=k_r+kol[i];
         if temp[i]<0 then k_s:=k_s+kol[i];
         end;
writeln(k_s,'   ',k_r);
end.