Question

Free Pascal的一道题

输入N个同学的语、数、英三科成绩，计算他们的总分与平均分，并统计出每个同学的名次，最后以表
格的形式输出。

输入格式：
第一行,n(n<100)
第二行开始,每行三个数据,表示该同学的三科成绩,中间用空格隔开
输出格式：
按原表格得顺序输出n行，每行包括6个数，三科成绩以及总分、平均分和名次，四舍五入小数点后面保留一位,如果有并列地排名,取并列名次

Answer 1

var s:array[1..3,1..100] of real;
a,z:array[1..100] of real;
i,j,n,m:integer;
k,t:real;
begin
read(n);
for i:=1 to n do begin
for j:=1 to 3 do begin
read(s[j,i]);
inc(a[i],s[j,i]);end;
z[i]:=a[i]/3;end;
for i:=1 to n-1 do
for j:=i+1 to n do if a[i]<a[j] then begin
k:=a[i];a[i]:=a[j];a[j]:=k;end;
for i:=1 to n do begin
for j:=1 to 3 do write(s[j,i]:0:1,' ');
write(a[i]:0:1,' ',z[i]:0:1,' ');
if a[i]=t then inc(m)
else begin t:=a[i];m:=0;end;
writeln(i-m);end;
end.
用记事本编的 可能会有点语法错误 LZ自己去改了

Answer 2

var s:array[1..3,1..100] of real;
a,z:array[1..10000] of longint;
i,j,n,m:integer;
k,t:real;
begin
readln(n);
for i:=1 to n do begin
for j:=1 to 3 do begin
read(s[j]);
inc(a[i],s[j,i]);end;z[i]:=a[i]/3;end;
for i:=1 to n-1 do
for j:=i+1 to n do if a[i]<a[j]then begin k:=a[i];a[i]:=a[j];a[j]:=k;end;
for i:=1 to n do begin
for j:=1 to 3 do write(s[j,i]:0:1,' ');
write(a[i],' ',z[i],' ');
if a[i]=t then inc(m) else
begin t:=a[i];m:=0;end;
writeln(i-m);end;
end.

Answer 3

你问什么啊？？