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

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