【2015.10.17普及模拟】Oliver的成绩(score)

【2015.10.17普及模拟】Oliver的成绩(score) 

题目：

 Oliver进入初中后，觉得自己不能总是玩儿了，应该要好好学习了。正好一次考试结束了，Oliver想知道自己的语文，数学，英语分别与语文年级第一，数学年级第一，英语年级第一相差多少。
由于Oliver所在年级有N个人，所以Oliver想你编个程序帮帮他。

输入：

score.in共3N+4行，第一~三行分别为Oliver的语文数学英语成绩(位数M)，第四行为N，以下3N行，每行一个数(它们的位数是M),分别为第N个同学的语文，数学，英语成绩。
即:Oliver的语文 数学 英语
   N
   第一个人的语文
   数学
   英语
   第二个人的语文
   …

输出：

 score.out共一行，有三个数，分别为Oliver的语文数学英语与年级第一的差。
如果Oliver是第一，则输出0.

范围：

对于50%的数据，0<N<1000,0<M<19.
  对于100%的数据，0<N<10000,0<M<30.且都为整数。

纵观题目，似乎很水...

等等！

位数m，难道要用高精度？

（此刻内心是崩溃的...）

认认真真打好高精度比较和减法，仔细检查，提交！

成绩:90

无语...

原来数组开小了，改完后马上AC

标程：

type    gjd=array[0..100]of longint;
var     st:string;
        o1,o2,o3,ans,max1,max2,max3:gjd;
        n,i,j,k,l,s,x:longint;
        a,b,c:array[0..10000]of gjd;
function bj(a,b:gjd):longint;
var     i,j,k:longint;
begin
        if a[0]<b[0] then exit(0);
        if a[0]>b[0] then exit(1);
        i:=a[0];
        j:=b[0];
        while(a[i]=b[j])and(i>0)do
        begin
                dec(i);
                dec(j);
        end;
        if i=0 then exit(2);
        if a[i]<b[j] then exit(0);
        if a[i]>b[j] then exit(1);
end;
function jian(a,b:gjd):gjd;
var     s:gjd;
        i,j,k:longint;
begin
        fillchar(s,sizeof(s),0);
        for i:=1 to a[0] do
        begin
                s[i]:=s[i]+a[i]-b[i];
                if s[i]<0 then
                begin
                        dec(s[i+1]);
                        inc(s[i],10);
                end;
        end;
        s[0]:=a[0];
        while s[s[0]]=0 do
        dec(s[0]);
        jian:=s;
end;
function turn(ste:string):gjd;
var     s:gjd;
        i,j,k:longint;
begin
        fillchar(s,sizeof(s),0);
        for i:=length(ste)downto 1 do
        s[length(ste)-i+1]:=ord(ste[i])-48;
        s[0]:=length(ste);
        turn:=s;
end;
begin
        assign(input,'score.in');
        assign(output,'score.out');
        reset(input);
        rewrite(output);
        readln(st);
        o1:=turn(st);
        readln(st);
        o2:=turn(st);
        readln(st);
        o3:=turn(st);
        readln(n);
        for i:=1 to n do
        begin
                readln(st);
                a[i]:=turn(st);
                readln(st);
                b[i]:=turn(st);
                readln(st);
                c[i]:=turn(st);
        end;
        max1[0]:=1;
        max1[1]:=0;
        max2:=max1;
        max3:=max1;
        for i:=1 to n do
        begin
                if bj(a[i],max1)=1 then max1:=a[i];
                if bj(b[i],max2)=1 then max2:=b[i];
                if bj(c[i],max3)=1 then max3:=c[i];
        end;
        if bj(o1,max1)>0 then write('0 ')
        else
        begin
                ans:=jian(max1,o1);
                for i:=ans[0] downto 1 do write(ans[i]);
                write(' ');
        end;
        if bj(o2,max2)>0 then write('0 ')
        else
        begin
                ans:=jian(max2,o2);
                for i:=ans[0] downto 1 do write(ans[i]);
                write(' ');
        end;
        if bj(o3,max3)>0 then writeln(0)
        else
        begin
                ans:=jian(max3,o3);
                for i:=ans[0] downto 1 do write(ans[i]);
                writeln;
        end;
        close(input);
        close(output);
end.