Developing.ru

Задана последовательность из N вещественных чисел. Определить
порядковый номер того из них, которое ближе всего к заданному
числу.

Количество чисел в массиве и максимальное число в массиве нужно задать через write или writeln

for i:= 1 to N do
if (abs(A-x) < abs(A[imin]-x) then imin:=i