ks:array[1..10,1..10] of integer; // 指定10*10的数组一般用静态数组
for i:=1 to 10 do
for j:=1 to 10 do
ks[j,i] := (i-1)*10+j; // 按列优先赋值从1到100
for i:=1 to 10 do begin // 输出该数组
for j:=1 to 10 do
write(ks[i,j],' ');
writeln;
end;
静态数组,列优先就是 第一行第一列是1 第二列是2.。。
第二行第一列是11.。。第10行第十列100