Составить программу для обмена местами максимального и минимального элемента главной диагонали квадратной числовой матрицы.

[сона]

Составить программу для обмена местами максимального и минимального элемента главной диагонали квадратной числовой матрицы.

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[bananasus]

а в чем проблема?
1. находим минимальный и максимальный
2. меняем местами
3. все.

[сона]

а как найти этот миним и максимальный?и как поменять местами можно подробнее????плз(

[ViktorR]

Пример:
Есть квадратная матрица и несколько переменных:

Var
Matr: array [1..n,1..n] of real; {элементы вещественного типа}
i, imin, imax: integer;
min, max, tmp: real; {того же типа, что и элементы матрицы}

Все элементы, которые принадлежат главной диагонали адресуются так:
Matr[i,i], где i меняются от 1 до n (первый и второй индексы одинаковые).
В начале минимальный и максимальный элементы это:

max := Matr[1,1]; min := Matr[1,1]; {совпадают}
imax := 1; imin := 1;

в цикле просмотрим все элементы и получить номера для минимального и максимального элементов (imax, imin).
Для обмена нам потребуется временная переменная tmp.
Обмен будет таким:

tmp := Matr[imin,imin];
Matr[imin,imin] := Matr[imax,imax];
Matr[imax,imax] := tmp;

Как написать цикл и условные операторы сообрази...

Как-то так ...