Задача

[dexter_610]

даный масив N числами integer выведете на экран сумму отрицательных чисел и среднее значение помогите решить

[Hacker19_90]

Нароботки есть?
если нет, обращайтесь. ася в профиле

[unbanned]

s:=0;
for i:=1 to n do
   if mas[i]<0 then s:=s+mas[i];
writeln(s);
writeln(s/n);