var a:array[1..10,1..10] of integer;
m,i,j,mx:integer;
begin
write('Введите размер матрицы m=');
readln(m);
randomize;
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
mx:=a[1,m];
for i:=2 to m do
if a[i,m-i+1]>mx then mx:=a[i,m-i+1];
writeln('Максимальный элемент побочной диагонали=',mx);
writeln('Индексы элементов, равных максимальному');
for i:=1 to m do
for j:=1 to m do
if a[i,j]=mx then write('[',i,',',j,'] ');
end.
m,i,j,mx:integer;
begin
write('Введите размер матрицы m=');
readln(m);
randomize;
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
mx:=a[1,m];
for i:=2 to m do
if a[i,m-i+1]>mx then mx:=a[i,m-i+1];
writeln('Максимальный элемент побочной диагонали=',mx);
writeln('Индексы элементов, равных максимальному');
for i:=1 to m do
for j:=1 to m do
if a[i,j]=mx then write('[',i,',',j,'] ');
end.