UC知道PASCAL题目:输入一个二维数组,找出其中最小的数,输出它的值以及所在的行号和列号?
来源：百度知道 编辑：UC知道 时间：2024/06/25 10:52:56
谢谢大家,如果你能回答我的问题,我还想请你能留下QQ号,我想加你,谢谢!
var i,j,max,mm,mn,m,n:integer;
a:array[1..10,1..10]of integer;
begin
readln(m,n);
max:=maxint;
for i:=1 to m do for j:=1 to n do read(a[i,j]);
for i:=1 to m do for j:=1 to n do
if max>a[i,j] then begin
max:=a[i,j];
mm:=i;
mn:=j;
end;
writeln(max);
writeln(m,' ',n);
end.
没有QQ……