CONTINUE. WRITE(6,*)’Максимальный элемент: А(‘,NMA,’) =’,AMA

С Найдено:

WRITE(6,*)’Максимальный элемент: А(‘,NMA,’) =’,AMA

WRITE(6,*)’Минимальный элемент: А(‘,NMI,’) =’,AMI

С Меняем местами:

A(NMI)=AMA

Значение максимума АМА записываем в элемент массива с номером NMI, где до этого находился минимальный элемент.

A(NMA)=AMI

Аналогично значение минимума АМI записываем в элемент массива с номером NMA, где до этого находился максимальный элемент.

Таким образом, максимальный и минимальный элементы поменяются местами.

PAUSE

STOP

END

Мини задача:

Поменять максимальное и минимальное значения элементов массива местами, не используя значения AMI, AMA (т.е. значения максимума и минимума) – на основе предыдущей задачи.

Используем дополнительно переменную С для временного хранения числа при перестановке значений.

. . . . . . . . . . . .

С=A(NMI)

A(NMI)=A(NMA)

A(NMA)=C

Сортировка массива

Задача:

Одномерный массив А(200) отсортировать по убыванию.

Решение. В цикле сравниваем поочередно два рядом стоящих элемента массива. И, если последующий элемент больше предыдущего, то меняем их местами. За один цикл от 1 до N-1 поменяются местами все элементы, значения которых удовлетворяет условию. Если же цикл поместить внутри такого же цикла, то поменяются местами все элементы и массив будет отсортирован.

С первый способ сортировки массива