free pascal 奖学金题目

1个回答

  • {

    我用了快排,用选择排序、冒泡排序也是可以的。

    你写完了可以在http://www.***.cn/Problem_Show.asp?id=1130提交

    }

    var

    n:longint; //学生数量

    a,b,c:array [1..300] of longint; //用于保存数据

    procedure init; //初始化

    var i:longint;

    begin

    readln(n); //读入学生数量

    for i:=1 to n do

    begin

    readln(a[i],b[i],c[i]); //读入语文、数学、英语成绩

    b[i]:=a[i]+b[i]+c[i]; //数学成绩没多大用,替换为总成绩

    c[i]:=i; //英语成绩没多大用,替换为学号

    end;

    end;

    procedure swap(var a,b:longint); //交换a、b两个数的过程

    var t:longint;

    begin

    t:=a;

    a:=b;

    b:=t;

    end;

    function check(a,b,c,d,e,f:longint):boolean; //用于快速排序过程中的判断

    begin

    if be then exit(true);

    if ad then exit(true);

    if c