var a,sum:real;i:word;
begin
sum:=0;
i:=0;
readln(a);
while(a<>0) do
begin
if a<0 then begin sum:=sum+a; inc(i); end;
readln(a);
end;
writeln(sum/i:2:2);
readln;
end.
Среднее арифмитическое отрицательных чисел(Pascal)
Вводятся числа пока не будет введен Ø, найдите среднее орифмитическое отрицательных чисел.
А чем, простите, среднее арифметическое отрицательных чисел отличается от среднего арифметического положительных (да и вообще, любых) чисел?
Nethead
Код:
if i <> 0 then writeln(sum/i:2:2);
else ....
else ....