Question

Составьте программу ,определяющую максимальный элемент и его индексы матрицы А размером M x N

Answer 1

var a:array[1..10,1..10]of integer; неудобно var a:array[1..10,1..10]of integer;
max,i1,j1,i,j,k,m,n:integer;
begin
readln(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
max:=a[1,1];
i1:=1;
j1:=1;

for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]>max then begin max:=a[i,j]; i1:=i; j1:=j; end;
end;
end;
writeln(max,' ',i1,' ',j1);
end.