В массике 50 частей , числа от -50 до 50 ,

язык программирования какой?

тогда пишу, на паскале, раз не отвечаете

Const
n=50;
Var
a:array[1..n]of integer;
k,i,s:integer;
begin
   for i:=1 to n do
      begin
          a[i]:=random(101)-50;
           write(a[i]:4);
              if a[i]lt;0 then
                 begin
                     s:=s+a[i];
                      k:=k+1;
                 end;
      end;
writeln;
if klt;gt;0 then
     writeln(s/k)
else
     writeln('Нет отриц')
end.