登陆

忘记密码

perl习题，输出一组数中大于平均数的元素

回复 收藏
给出一个数字数组，输出大于它们平均数的所有元素。
  1. #! /usr/bin/perl
  3. sub tot {
  4.     my($sum)=0;
  5.     for (@a) {
  6.         $sum+=$_;
  7.     }
  8.     return $sum;
  9. }
  11. sub ave {
  12.     my($n)=$#_+1;
  13.     my($ave)=&tot(@a)/$n;
  14.     return $ave;
  15. }
  17. @a=(1..10);
  18. print &tot(@a),"\n";
  19. print &ave(@a),"\n";
  20. for (@a) {
  21.     if ($_ > &ave(@a)) {
  22.         push (@b,$_);
  23.     }
  24. }
  25. print "Shoud be (@b)\n";
0 赞
2012-11-13 13:09 举报

没有找到相关结果

    已邀请:
    为什么被折叠? 0 个回复被折叠

    回复帖子，请先登录或注册

    退出全屏模式 全屏模式 回复
    评分
    可选评分理由：

    Copyright © 2024 - 猿课, All Rights Reserved