Турбо Паскаль. Дано действительное число х и массив А. В массиве найти два члена,среднее арифметическое которых ближе всего к x

[Хайзенберг777]

Турбо Паскаль. Решите плиз. Дано действительное число х и массив А. В массиве найти два члена,среднее арифметическое которых ближе всего к х.

[p51x]

Вы не знаете формулы среднего арифметического?

[Serge_Bliznykov]

  заполнить массив А : array [1..N] of ....
  прочитать X
  indexAver1 := 1;
  indexAver2 := 2;
  for i:=1 to N-1 do
    for j:=i+1 to N do
      if abs((A[i]+A[j])/2)<abs((A[indexAver1]+A[indexAver2])/2) then begin
         indexAver1 := i;  indexAver2 := j
      end;
 WriteLn('Ближе всего элементы матрицы ',A[indexAver1], ' и ', A[indexAver2])