输入若干个学生成绩,计算平均成绩,输出低于60的,输入负数结

【编程】 输入若干个学生成绩,计算平均成绩,输出低于60的,输入负数结束

--------------------------------------------

傻大方资讯为您精选的网友回复(供您参考):

[手机 QQ]{pascal}var a:array[1..1000000]of 0..60;    n,i,ans,x:integer;begin read(x);      while x>0 do begin       ans:=ans+x;       inc(n);       if x<60 then begin        inc(i);        a[i]:=x;       end;       read(x);      end;      writeln(ans/n:0:2);      while i>0 do begin       write(a[i],' ');       dec(i);      end;end.

--------------------------------------------