Ответ:Ребзи, держите! Должно быть верно)

1)

var x: array [1..16] of real; p: real; n: real; i: integer;

begin

 n:=0;  

 p:=0;

 x[1]:=0;

 x[2]:=15;

 x[3]:=12;

 x[4]:=-9;

 x[5]:=-8;

 x[6]:=58;

 x[7]:=45;

 x[8]:=36;

 x[9]:=-85;

 x[10]:=58;

 x[11]:=36;

 x[12]:=-45;

 x[13]:=2;

 x[14]:=3;

 x[15]:=25;

 x[16]:=-9;

 for i:=1 to 16 do

   begin

   if (x[i]>0) then n:=n+x[i];

   if (x[i]<0) then p:=p+1;

   end;

 writeln(n,' ', p);

end.

Объяснение: Вы можете сами проверить верна ли программа. Вводите то что выше в Паскаль смотрите ответ, берёте калькулятор и считаете сами, если ответы совпадают с проги и с калькулятора то всё верно_) Удачи.