神马作文网PASCAL 排列数据
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/12 13:19:34
PASCAL 排列数据
每一行的数据项数 1
每一行的数据项数 1
错了请告诉我 谢谢
var i,n,j,temp,len0,k:longint;
a:array[1..1000,0..10000] of longint;
b:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do begin
while not eoln do begin
inc(a[i,0]);
read(a[i,a[i,0]]);
if a[i,a[i,0]]=-1 then break;
end;
readln;
end;
for i:=1 to n do begin b[i]:=i; end;
for i:=1 to n do
for j:=i+1 to n do begin
len0:=a[b[i],0];
if a[b[j],0]>len0 then len0:=a[b[j],0];
for k:=1 to len0-1 do begin
if a[b[j],k]>a[b[i],k] then begin
break;
end else if a[b[j],k]
var i,n,j,temp,len0,k:longint;
a:array[1..1000,0..10000] of longint;
b:array[1..1000] of longint;
begin
readln(n);
for i:=1 to n do begin
while not eoln do begin
inc(a[i,0]);
read(a[i,a[i,0]]);
if a[i,a[i,0]]=-1 then break;
end;
readln;
end;
for i:=1 to n do begin b[i]:=i; end;
for i:=1 to n do
for j:=i+1 to n do begin
len0:=a[b[i],0];
if a[b[j],0]>len0 then len0:=a[b[j],0];
for k:=1 to len0-1 do begin
if a[b[j],k]>a[b[i],k] then begin
break;
end else if a[b[j],k]