pascal 找出二维数组最大值和下标急！

Question

　输入一个3行4列的数组，找出该数组中绝对值最大的元素、输出该元素的绝对值及其两个下标值。如有多个输出行号最小的，还有多个的话输出列号最小的。

Answer 1

const
a:array[1..3,1..4] of integer=((1,-3,-5,3),
(3,-7,7,8),
(-5,-7,-8,8));
var
i,j,max,maxi,maxj:integer;
begin
maxi:=1;
maxj:=1;
max:=abs(a[1,1]);
for i:=1 to 3 do for j:=1 to 4 do begin
if abs(a[i,j])>max then begin
max:=abs(a[i,j]);
maxi:=i;
maxj:=j;
end;
end;
writeln(max:6,maxi:3,maxj:3);
end.

追问

它的输入是随机的不算是固定的

输入是随机的不是固定的

追答

那你就用read语句读入你的数组即可。如：
for i:=1 to 3 do for j:=1 to 4 do read(a[i,j]);

本回答被提问者和网友采纳