Проблема с паскалем. мне надо посчитать среднее арифметическое всех отрицательных чисел в массиве из десяти элементов. я понимаю, как сначала надо распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? желательно написать полной программой. заранее с:
sum:=0
for i:=1 to 10 do
begin
if m[i]<0 then
begin
k:=k+1;
sum:=sum+m[i];
end;
end;
writeln(sum/k);
end.