如何用Fortran计算级数的模

如何使用Fortran计算级数的模式

例如：

1,2,2,3,3,3,4,4,5
Mode = 3

---

如果对数字进行了排序（看起来是这样），则伪代码很简单：

set maxval to -1
set maxcount to -1
set count to -1
set lastval to list[0] - 1
for every val in list:
    if val is not equal to lastval:
        if count is greater than maxcount:
            set maxval to lastval
            set maxcount to count
        set count to 0
        set lastval to val
    set count to count plus one
if maxcount is not equal to -1:
    print "mode is " maxval " with count of " maxcount

---

请记住，如果有多个模式，这将只返回第一个模式。

如果您需要它，并且它不仅仅是一个练习，您可以在那里找到已经生成的代码；例如

---

. 如果是练习，首先尝试按照另一个答案中给出的算法进行操作。

现在进行一些建设性的评论：你已经得到了什么？你已经开始编程了吗？这里的人不喜欢做别人的家庭作业。是的，如果你已经尝试了5天，你应该有一些代码，不管你认为它可能有缺陷。如果你以此为起点，学习过程将对你更有益处。换句话说，张贴代码：-）家庭作业问题是允许的，但它们应该包括

家庭作业

标签。提问者也应该做出一些努力，展示他们的进步。看见