根据程序框图用程序语言写出来 - 爱问答

(爱问答)

根据程序框图用程序语言写出来

根据程序框图用程序语言写出来

pascal写的参考(pascal适合这种教育型的)

var
 a:array[1..10] of integer;
 s,m,n,i:integer;
begin
 for i:=1 to 100 do
   read(a[i]);
 s:=1;
 m:=1;
 n:=1;
 for i:=1 to 100 do
 begin
   if a[i]>=60 then
     s:=s+1
     else
      if a[i]>=80 then
        m:=m+1
        else
        begin
          m:=m+1;
          n:=n+1;
        end;  
 end;
 writeln('p=',n/(m+n+s));
 writeln('q=',(m+n)/(m+n+s));
end.  

下一篇:求大神指导一下,为什么读写这么低?

上一篇:卡在取出来以后怎么用冒泡法排序,我建数组它说过定义(C++编写)

热门标签:
excel 网盘 破解 word dll
最新更新:
微软重新评估新的Outlook的使用时机 联想推出搭载联发科Helio G80芯片组的Tab M9平板 英特尔创新大赛时间确定! 微软Edge浏览器在稳定渠道中推出Workspaces功能 英伟达RTX4060TiGPU推出MaxSun动漫主题! 谷歌地图为用户提供了街景服务! GameSir 在T4 Kaleid中推出了一款出色的控制器! 微软开始在Windows 11 中测试其画图应用程序的新深色模式! LG电子推出全球首款无线OLED电视 英伟达人工智能芯片崭露头角! Steam Deck可以玩什么游戏-Steam Deck价格限时优惠 雷蛇推出CobraPro鼠标 Kindle电子阅读器可以访问谷歌商店吗 Windows10如何加入组策略 window10图片查看器怎么没有了?