CONTINUE. WRITE(6,*)’Максимальное значение массива А=’,B

WRITE(6,*)’Максимальное значение массива А=’,B

Здесь организуется цикл, в котором значение второго элемента массива А сравнивается со значением первого элемента (который записан в переменной В) и, если A(I) больше, чем В, то переменной В присваивается значение A(I). При повторении цикла в переменную В будет записываться только то число из A(I), которое по значению будет больше В. По окончании цикла переменная В будет содержать максимальное значение из массива А. Аналогично оператору IF работает и строка с использованием функции AMAX1. Функция AMAX1 выбирает наибольшее значение из двух или более аргументов и присваивает его переменной В, затем цикл повторяется.

В конце выводится максимальное значение массива А – число В.

Мини задача:

Найти минимальное значение массива А и порядковый номер этого элемента.

DIMENSION A(200)

READ(5,*)A

NC=1До начала цикла в переменную, которая будет запоминать номер цикла с минимальным значением, заносим единицу.

C=A(1)

DO 4 I=2,200

IF (A(I).GE.C) GO TO 4

Здесь применяется элемент обратной логики: в зону после оператора IF можно попасть только тогда, когда А(I)<C (что и нужно по заданию).

С Запоминание минимального элемента

C=A(I)

С Запоминание номер элемента массива, в ячейке которого находится

С минимальное число

NC=I