Пожалуйста посчитайте решить задачу по информатике.

const n = 10;

var i,y,z:integer;

a:array[1..10] of integer;

begin

  for i:=1 to n do readln(a[i]);

  y:=0;z:=0;

  for i:=1 to 10 do

    if a[i]>0 then z:=z+a[i]

    else y:=y+a[i];

  writeln(y,' ',z);

end.

1. Благодарю