Одномерные массивы, Задача Опции

[XANDER]

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

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

[volvo]

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

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 }

[XANDER]

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

[volvo]

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