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

[шалунья]

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

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

[Бродяжник]

Один из возможных вариантов.
m1 - наш массив, sred - среднее значение, bliz - индекс ближайшего.
(Дремучая лень помешала мне написать всю прогу целиком и отладить ее. Но по идее должно работать)

Код

program x;
const n=10;
var m1: array[1..n] of real;
   sred,delta_best: real;
   i,bliz: integer;
begin
  {Здесь вводим массив и просчитываем среднее значение}
  {...}


  {А теперь будем искать ближайший элемент}
  bliz := 1;
  delta_best := abs(sred-m1[1]);

  for i:=2 to n do
      begin
        delta :=  abs(sred-m1[i]);

        if delta < delta_best
           then
             begin
               delta_best := delta;
               bliz := i;
             end;
      end;

{...что-то там еще}
{...}
end.

P.S. Volvo меня обошел!

Сообщение отредактировано: Бродяжник - 6.12.2004 14:57