pascal数组问题求一个n*n
程序如下:
var i,j,n,m,l:integer;
pd:boolean;
a:array[1。。100,1。。100] of integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]); {读数部分}
for i:=1 to n do begin
l:=1;m:=a[i,1];pd:=true; {赋初值,l为列号}
for j:=2 to n do
if m>a[i,j] then begin m:=a[i,j];l:=j end; {找出行上最小的数}
for j:=1 to n do
i...全部
程序如下:
var i,j,n,m,l:integer;
pd:boolean;
a:array[1。。100,1。。100] of integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]); {读数部分}
for i:=1 to n do begin
l:=1;m:=a[i,1];pd:=true; {赋初值,l为列号}
for j:=2 to n do
if m>a[i,j] then begin m:=a[i,j];l:=j end; {找出行上最小的数}
for j:=1 to n do
if m
。收起