易语言取多个变量中最大的一个数,第二大的一个数,第三大的一个数.

exit11

[e]
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 小组分数, 整数型, , "8"
.局部变量 x, 整数型
.局部变量 最大数, 整数型, , "0"
.局部变量 计次, 整数型
小组分数 ＝ { 10, 11, 11, 11, 13, 13, 13, 11 }
数组排序 (小组分数, 假)
加入成员 (最大数, 小组分数 [1])
计次 ＝ 1
.变量循环首 (2, 取数组成员数 (小组分数) － 1, 1, x)
    .判断开始 (小组分数 [x] ＝ 最大数 [取数组成员数 (最大数)])
        加入成员 (最大数, 小组分数 [x])
    .判断 (小组分数 [x] ＜ 最大数 [取数组成员数 (最大数)])
                加入成员 (最大数, 小组分数 [x])
        计次 ＝ 计次 ＋ 1
    .默认
    .判断结束
    .如果真 (计次 ＝ 3 且 小组分数 [x] ≠ 小组分数 [x ＋ 1])
        跳出循环 ()
    .如果真结束
    .判断开始 (x ＝ 取数组成员数 (小组分数) － 1 且 计次 ＜ 3)
        加入成员 (最大数, 小组分数 [x ＋ 1])
    .判断 (x ＝ 取数组成员数 (小组分数) － 1 且 小组分数 [x] ＝ 小组分数 [x ＋ 1])
        加入成员 (最大数, 小组分数 [x ＋ 1])
    .默认
    .判断结束

.变量循环尾 ()
调试输出 (最大数)
[/e]