VPF::вопросик - Форум программистов

Анютка

Дата 22.12.2005, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 22.11.2005
Где: Моск.область

Репутация: нет
Всего: нет

В задачке нужно определить индекс элемента,значение которого наиболее близко к среднему.
Как это показать,ведь <,>,= не подходят?

DemoCode

Дата 22.12.2005, 20:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

1. Определяем среднее (сумма всех элементов массива / количество элементов)
2. Индекс := 0
3. Разница := большое число (например, максимально допустимое)
4. Цикл: Разница2 := Abs (Среднее - Значение элемента).
Если Разница2 < Разница то Разница:=Разница2 и Индекс:=Текущий индекс
5. Ответ : Индекс

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

Fighter

Дата 22.12.2005, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2

Держи исходничек.

Код


Uses crt;

const N = 5;

var
  a: array [1..N] of integer;
  i: integer;
  mid: integer;
  s: integer;
  mid_i: integer;
  r: integer;
  r2: integer;
begin
  clrscr;
  for i := 1 to n do
  begin
    write('A[',i,']= ');
    readln(a[i]);
    s := s + a[i];
  end;
  mid := s div n;
  mid_i := 1;
  r := a[1];
  for i := 1 to n do
    if a[i] > r then r := a[i];

  for i := 1 to n do
  begin
    r2 := abs(mid - a[i]);
    if r2 < r then
    begin
      r := r2;
      mid_i := i;
    end;
  end;

  writeln('Mid_i: ', mid_i);

  readkey;

end.

Анютка

Дата 23.12.2005, 08:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 22.11.2005
Где: Моск.область

Репутация: нет
Всего: нет

спасибки!выручили! smile

только объясните,как это работает!! smile

Zero

Дата 24.12.2005, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Цитата

только объясните,как это работает!!

по всей видемости, ответ близок к тому что написал DemoCode.

PS: Анютка все твои темы получаются для тебя одного, т.к. ты их называешь, не информативными именами, и если другому участнику понадобятся такие же решения, то они заново будут создавать такие же темы и тратить свою и наше время... smile

читаем правила прямо самый первый пункт, хотябы...

Например тему можно было назвать: "Как найти среднее значение элементов массива"

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »