procedure p
var i,m,M:integer
for i:=1 to n do
if a[i] < a[i+1] then
m:=i
else
if a[i] > a[i+1] then
M:=i
endif
endif
endfor
endprocedure