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

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; beginreadln (m,n); for i: =1 to m dofor j: =1 to n doreadln (a[i,j]); max: =a[1,1]; i1: =1; j1: =1; for i: =1 to m do beginfor j: =1 to n do beginif a[i,j]>max then begin max: =a[i,j]; i1: =i; j1: =j; end; end; end; writeln (max,',i1,',j1); end.