Найдите среднее арифметическое отрицательных чисел из n введенных.
(в паскале)
const n = 3; var i, a, count, s: integer; begin for i := 1 to n do begin readln(a); if(a < 0) then begin s := s + a; inc(count); end; end; writeln(s/count); end.