Question

Помогите написать программу. Дана последовательность из n отрицательных чисел, заканчивающихся положительным числом. Найдите средне арифметическое всех чисел (без учета положительного числа)

Answer 1

var

n,count,sum:integer;

begin

count:=0; sum:=0;

readln(n);

if n<0 then

  begin

    while n<0 do

      begin

        sum:=sum+n;

        inc(count);

        readln(n);

      end;

    writeln(sum/count);

  end

    else

      writeln('0');

end.

Дублирую свой ответ.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!