Даны действительное число X и массив A[n]. В массиве найти два члена, среднее арифметическое которых ближе всего к X.

Кто нибудь помогите решить задачу.

Что именно не получается? Два вложенных цикла:

dist := maxInt;

For i := 1 To n-1 Do
  For j := i To n Do
    If Abs((A[i] + A[j])/2 - X) < Dist Then
      { Запоминаешь I, J и новое значение Dist }

Можешь написать листинг программы.

Нет... Я предпочитаю не давать полных решений...