读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚

读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚
读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.
用free pascal编,用while do 这个循环体结构编写.
框架图也画出来了,但是具体的输入格式,细节上还是不清楚

读入若干个数,计算所有正数的平均值和负数的平均值.当输入0时,输入结束.用free pascal编,用while do 这个循环体结构编写.框架图也画出来了,但是具体的输入格式,细节上还是不清楚
给你写个程序吧,pascal已经忘得差不多了.
PROGRAM sinfile1(input,output);
VAR
x,s1,s2:real;
n1,n2:Integer;
BEGIN
s1:=0;
s2:=0;
n1:=0;
n2:=0;
read(x);
while x0 do
begin
if x>0
then begin s1:=s1+x; n1:=n1+1; end
else begin s2:=s2+x; n2:=n2+1; end;
read(x);
end;
if n1>0 then write('aver1=',s1/n1);
if n2>0 then write('aver2=',s2/n2);
end.