В массике 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] < 0 then begin S:= S + a[i]; k:= k+1; end; end; M:= S / k; writeln( M );end.В массиве \"а[50]\" храниться 50 чисел.В цикле все элементы массива \"а[50]\" сравниваются с нулем и в переменной \"S\" накапливается сумма отрицательных чисел. в переменной \"k\" сохраняется количество отрицательных чисел.По окончании цикла, в переменную \"M\" записывается среднее арифметическое отрицательных чисел.