输入一个3×3二维数组，找出其中最小的数，输出它的值以及所在行号和列号。 pascal 程序

Question

如题所述

Answer 1

var
x,y,i,j,min,n:longint;
begin
min:=maxlongint;
for i:=1 to 3 do
for j:=1 to 3 do
begin
read(n);
if n<min then begin min:=n; x:=i; y:=j; end;
end;
write(min,' ',x,' ',y);
end.追问

min:=maxlongint;这是函数
if n<min then begin min:=n; x:=i; y:=j; end; 这叫什么排序法

追答

选择排序法

Answer 2

其实楼上是在输入时就比较，再记录行和列。min:=maxlongint;不是函数，maxlongint是常量，就是longint的最大值。LZ是新手吧= =这么简单都不会

Answer 3

proceudre getmin(ARR:Array[0..2,0..2] of integer):integer;
var
i,j:integer;
begin
result := ARR[0,0];
for i := 0 to 2 do
for j:= 0 to 2 do
Result := min(result,ARR[i,j]);
end;本回答被提问者和网友采纳