Нфлрматика программирование паскаль Паскаль:
Дана массив А(7,7). Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с элементом, стоящим на пересечении этих диагоналей.

Предыдущий
вопрос Следующий
вопрос

program Main
cons
N = 7
typ
Matrix = array[1..N, 1..N] of integer
va
A: Matrix
i, j, maxElem: integer
begi
// Ввод массива A(7,7
for i := 1 to N d
for j := 1 to N d
begi
write('A[', i, ',', j, ']: ')
readln(A[i, j])
end;

// Находим максимальный элемент на главной и побочной диагоналя
maxElem := A[1, 1]
for i := 2 to N d
if A[i, i] > maxElem the
maxElem := A[i, i];

for i := 1 to N d
if A[i, N - i + 1] > maxElem the
maxElem := A[i, N - i + 1];

// Меняем местами максимальный элемент и элемент на пересечении диагонале
for i := 1 to N d
for j := 1 to N d
if (i = j) or (i = N - j + 1) the
begi
if A[i, j] = maxElem the
begi
A[i, j] := A[N - i + 1, i]
A[N - i + 1, i] := maxElem
end
end;

// Вывод измененного массив
writeln('Измененный массив:')
for i := 1 to N d
begi
for j := 1 to N d
write(A[i, j], ' ')
writeln
end
end.