pascal问题：输入一个二维数组，找出其中最小的数，输出它的值以及所在行号和列号

Question

如题所述

Answer 1

var a:aaray[1..100,1..100] of integer;
i,j,min,h,h2,l,l2:integer;
begin
read(h,l);
min:=10000;
for i:=1 to h do
for j:=1 to l do
begin read(a[i,j]);
if a[i,j]<min
then begin min:=a[i,j];
h2:=i;
l2:=j;
end;
end;
write(min,h2:5,l2:5);
end.