Восстановите алгоритм поиска максимального элемента массива.
M := A[1];
for i := 2 to N do
if A[i] > M then
M := A[i];
write(M);