Вмассиве чисел x1, найти максимальное по абсолютной величине и его номер.

2 переменных a - число, b - номер
в цикле по всем значениям x
в цикле for 1 to xn
do i:=i+1
if a>X(i) then a:=x (i), b:=I
next