В массиве чисел X1,X2,......Xn найти максимальное по абсолютной величине и его номер.
Как в Паскале записать?
2 переменных a - число, b - номер в цикле по всем значениям x в цикле for 1 to xn do i:=i+1 if a>X(i) then a:=x (i), b:=I next