郑执 2012-02-02 19:04:00
点我顶贴
收藏
删除
var
a:array[1..1000,1..10] of longint;
b,c,d:array[1..1000] of longint;
i,j,k,m,n,t:longint;
begin
readln(n,m,k);
for i:=1 to n do
begin
b[i]:=0; c[i]:=0; d[i]:=i;
for j:=1 to k do
begin
read(a[i,j]); inc(b[i],a[i,j]); inc(c[i],sqr(a[i,j]));
end;
b[i]:=trunc(b[i]/k);
c[i]:=trunc((c[i]-k*sqr(b[i])))/k);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (b[i]<b[j]) or ((b[i]=b[j]) and (c[i]>c[j])) or ((b[i]=b[j]) and (c[i]=c[j]) and (d[i]>d[j])) then
begin
t:=b[i]; b[i]:=b[j]; b[j]:=t;
t:=c[i]; c[i]:=c[j]; c[j]:=t;
t:=d[i]; d[i]:=d[j]; d[j]:=t;
end;
for i:=1 to m-1 do write(d[i],' '); write(d[m]);
end.