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

987helen 987helen    2   30.05.2019 09:30    3

Ответы
sadgirl22 sadgirl22  30.06.2020 09:26
K:=0
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика