Нахождение наибольшего элемента массива

В предыдущем примере производились вычисления, пере­менная S меняла свои значения в процессе решения задачи. Однако большинство задач, решаемых с помощью компьюте­ра, являются невычислительными. К ним относится задача поиска наибольшего элемента в массиве. Трудность при разработке алгоритма решения заключается в том, что надо записать в виде команд компьютеру привычные для человека действия: выделение большего из последовательности чисел. Чтобы лучше представить себе, как последовательно просмат­ривать и сравнивать между собой числа, записанные в памя­ти, вообразим, что каждое число написано на отдельной кар­точке и карточки сложены стопкой. В таком случае мы первое число запомним сразу как наибольшее и перевернем карточку. Теперь в нашем распоряжении два числа: одно видим, другое — помним. Сравнивая их между собой, запомним большее, т. е. если первое было больше, то запоминать новое не придется и надо смотреть следующую карточку. Если второе больше пер­вого, то первое в дальнейшем помнить нет смысла и мы за­помним второе. Таким образом, на каждом этапе сравнения мы будем помнить большее из просмотренных чисел и в кон­це решим поставленную задачу. Записав приведенные рассуж­дения в виде операторов, получим программу нахождения на­ибольшего значения. Промежуточные значения и ответ содер­жит переменная max.

program Р 13;

const n = 7;

var a: array [ 1.. n ] of integer; max, i: integer;

Begin

for i: = 1 to n do

Begin

write (‘a[‘, i, ‘] = ‘);

readln (a [ i ]);

end;

max: = a [1 ];

for i: = 2 to n do

if max < a [ i ]

then max: = a [ i ];

write (‘наибольший элемент массива max = ‘, max)

End.