Ответы на вопрос:
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.
Популярно: Другие предметы
-
popovArtem115646515631.07.2021 08:19
-
Willowchops11.08.2020 03:58
-
qmess1004.03.2023 21:02
-
vitalytubvitalnru06.08.2020 06:44
-
yliachedrina20017.07.2022 01:12
-
Danuaple25.02.2022 18:27
-
lisovak077701.07.2021 01:36
-
svetlana81kolesnik27.03.2022 18:47
-
Миша311102.03.2022 07:28
-
asanovavenera02.02.2021 14:20