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

var a: array[1..50] of integer; i: integer; S: integer; k: integer; M: real; begin S:= 0; k:= 0; for i:= 1 to 50 do begin if a[i] lt; 0 then begin S:= S + a[i]; k:= k+1; end; end; M:= S / k; writeln( M ); end. В массиве "а[50]" храниться 50 чисел. В цикле все элементы массива "а[50]" сравниваются с нулем и в переменной "S" скапливается сумма отрицательных чисел. в переменной "k" сохраняется количество отрицательных чисел. По окончании цикла, в переменную "M" записывается среднее арифметическое отрицательных чисел.