0027 成绩排序 由大到小-控制台程序-极语言教程

整数 成绩组(5)={50,10,100,95,70}
小程序 初始启动
整数 下标甲,下标乙,最大,空杯
循环于(下标甲=0;下标甲<5;下标甲++)
{
    循环于(下标乙=下标甲 + 1;下标乙<5;下标乙++)
    {
        如果(成绩组(下标甲)>成绩组(下标乙))
        {
            最大=下标甲
        }
        否则
        {
            最大=下标乙
        }
        空杯=成绩组(最大)
        成绩组(最大)=成绩组(下标甲)
        成绩组(下标甲)=空杯
    }
}
循环于(下标甲=0;下标甲<5;下标甲++)
{
    写格式("下标 %-3d 分数 %d \r\n",下标甲,成绩组(下标甲))
}
命令行("pause")
结束