Проблема с Паскалем. Мне надо посчитать среднее арифметическое всех отрицательных чисел в...

Question

Проблема с Паскалем. Мне надо посчитать среднее арифметическое всех отрицательных чисел в массиве из десяти элементов. Я понимаю, как сначала надо распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? Желательно написать полной программой. Заранее спасибо с:

Answer 1

K:=0
sum:=0
for i:=1 to 10 do
begin
if m[i]<0 then<br>begin
k:=k+1;
sum:=sum+m[i];
end;
end;
writeln(sum/k);
end.

Comments

опишеш массив сам и переменные

---

Мне дали именно такое задание, то есть подробнее не могу описать. Нет описания переменых.

---

да в паскале сам опишеш там 2 минуты