одномерный массив Опции

[шалунья]

Вот задачка:
Определить среднее значение элементов массива. Найти далее индекс элемента массива, наиболее близкого к среднему значению.

Я знаю, как найти среднее значение элементов массива, а вот как найти индекс элемента массива, наиболее близкого к среднему значению я не знаю. Кому не сложно подскажите бедной студентке, как это сделать!!!! Заранее СПАСИБО!!!!

[volvo]

шалунья
Вот пример решения (просто замени константы на переменные и организуй ввод массива):

Код

const
 n = 10;
 a: array[1 .. n] of integer =
   (2, 5, 3, 8, 6, 9, 1, 13, 10, 22);

var
 aver, min: real;
 i, index: integer;

begin
 aver := 0;
 for i := 1 to 10 do
   aver := aver + a[i];
 aver := aver / n;

 min := maxInt;
 for i := 1 to n do
   if min > abs(a[i] - aver) then
     begin
       min := abs(a[i] - aver); index := i
     end;

 writeln('average = ', aver:10:5);
 writeln('closest = a[', index, '] = ', a[index]:4);
end.