题目描述
Oliver进入初中后，觉得自己不能总是玩儿了，应该要好好学习了。正好一次考试结束了，Oliver想知道自己的语文，数学，英语分别与语文年级第一，数学年级第一，英语年级第一相差多少。 由于Oliver所在年级有N个人，所以Oliver想你编个程序帮帮他。
输入
score.in共3N+4行，第一~三行分别为Oliver的语文数学英语成绩(位数M)，第四行为N，以下3N行，每行一个数(它们的位数是M),分别为第N个同学的语文，数学，英语成绩。 即:Oliver的语文 数学 英语 N 第一个人的语文 数学 英语 第二个人的语文 …
输出
score.out共一行，有三个数，分别为Oliver的语文数学英语与年级第一的差。 如果Oliver是第一，则输出0.
样例输入
10 10 10 3 0 80 0 40 0 0 0 0 100
样例输出
30 70 90
【数据范围】 对于50%的数据，0< N < 1000,0< M <19. 对于100%的数据，0< N <10000,0< M <30.且都为整数。
分析 这一题的意思是说，给出三科成绩，分别与其他的N个人的成绩作比较，并输出 单科最高成绩 减Oliver单科成绩。值得注意的是，成绩的位数可能有M(0
type arr=array[-10..30]of longint; const max=30; var j,n,i:longint; x1,x2,x3,zfc,c,z,y,x:ansistring; procedure jian(s1,s2:ansistring); var a,b:arr; l1,l2,i,g,j:longint; begin fillchar(a,sizeof(a),0); fillchar(b,sizeof(b),0); l1:=length(s1); l2:=length(s2); for i:=1 to l1 do a[max-l1+i]:=ord(s1[i])-ord('0'); for i:=1 to l2 do b[max-l2+i]:=ord(s2[i])-ord('0'); g:=0; for i:=max downto 1 do if a[i]>=b[i]+g then begin a[i]:=a[i]-b[i]-g; g:=0; end else begin a[i]:=a[i]+10-b[i]-g; g:=1; end; i:=1; while (i<max)and(a[i]=0) do inc(i); for j:=i to max do write(a[j]); write(' '); end; begin assign(input,'score.in'); reset(input); assign(output,'score.out'); rewrite(output); readln(x); zfc:=''; for i:=1 to length(x) do if x[i]<>' ' then zfc:=zfc+x[i]; x:=zfc; readln(y); zfc:=''; for i:=1 to length(y) do if y[i]<>' ' then zfc:=zfc+y[i]; y:=zfc; readln(z); zfc:=''; for i:=1 to length(z) do if z[i]<>' ' then zfc:=zfc+z[i]; z:=zfc; readln(n); x1:='';x2:='';x3:=''; for i:=1 to n do begin readln(c); zfc:=''; if length(c)>=length(x1) then begin for j:=1 to length(c) do if c[j]<>' ' then zfc:=zfc+c[j]; if zfc>=x1 then x1:=zfc; end; readln(c); zfc:=''; if length(c)>=length(x2) then begin for j:=1 to length(c) do if c[j]<>' ' then zfc:=zfc+c[j]; if zfc>=x2 then x2:=zfc; end; readln(c); zfc:=''; if length(c)>=length(x3) then begin for j:=1 to length(c) do if c[j]<>' ' then zfc:=zfc+c[j]; if zfc>=x3 then x3:=zfc; end; end; if x1=x then write(0,' ') else if (length(x1)<length(x)) then write(0,' ') else if (x1>x)or(length(x1)>=length(x)) then jian(x1,x); if x2=y then write(0,' ') else if (length(x2)<length(y)) then write(0,' ') else if (x2>y)or(length(x2)>=length(y)) then jian(x2,y); if x3=z then write(0,' ') else if (length(x3)<length(z)) then write(0,' ') else if (x3>z)or(length(x3)>=length(z)) then jian(x3,z); close(input); close(output); end.