Паскаль, цикл с предусловием

[xSanchox]

задача:
Организуйте цикл, при котором выводятся на экран отрицательные числа и находится среднеарифметическое этих чисел. Условием является ввод числа 0.

я дошел лишь до того что программа выводит отрицательные числа до нуля, но среднее арифметическое...%)

program pr;
var i:integer;
begin
writeln ('vvedite 4islo');
readln(i);
while i<0 do
begin
i:=i+1;
writeln(i);
end;
end.

хотя я уверен что даже не так должно все выглядеть

заранее спасибо

[Mad_Cat]

var
a,s:real;
i:integer;
begin
s:=0;
a:=-1;i:=0;
while a<0 do begiin
readln(a);
if a<0 then
s:=s+a;
inc(i);
end;
if i-1<>0 then
s:=s/(i-1);
writeln('sa',s:6:3);
end.

[xSanchox]

не очень понял что делает эта программа, но точно не то что надо

[andrewpalkin]

Я не уверен с твоим условием , но я поправил твой код

program pr;
var i:integer;
    num : integer;
    sr: double;
begin
  sr :=0;
  num:= 0;
  write ('vvedite 4islo : ');
  readln(i);
  
  while i<0 do
  begin   
    sr:=sr+i;
    num:=num+1;
    write(i,' '); 
    i:=i+1;
  end;
  
  sr:=sr/num;
  writeln();
  write( 'srednee : ',sr ); 
end.

[xSanchox]

Спасибо огромное! но что за тип double?

[andrewpalkin]

Сообщение от xSanchox

Спасибо огромное! но что за тип double?

Вот тут ты можешь почитать про типы , ссылка на страницу .

Если ты знаешь тип real , то можешь заменить на него . Просто среднее это не целое число может быть , я использовал для этого double .