当前位置：你问我答网 > 教育

新闻稿格式模板pascal 从键盘输入20个整型数，统计负数个数并求所有正数的平均值答案

2020-09-20 教育 101阅读
var i,x,a,b,s:integer;
begin
a:=0;
s:=0;
for i:=1 to 20 do
begin
read(x);
if x<0 then inc(a)
else if x>0 then begin inc(b); inc(s,x) end;
end;
writeln('负数个数:',a);
writeln('所有正数的平均值:',s/b:0:2);
end.
声明：你问我答网所有作品（图文、音视频）均由用户自行上传分享，仅供网友学习交流。若您的权利被侵害，请联系fangmu6661024@163.com
0

猜你喜欢