Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 24.05.2010, 23:49   #1
счастливая
Пользователь
 
Регистрация: 11.04.2010
Сообщений: 13
Печаль вывод наименее отличающихся друг от друга

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные значения. Опишите на языке программирования алгоритм, который находит и выводит номера двух элементов массива, наименее отличающихся друг от друга.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=40;
var
а: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i :=1 to N do
readln(a[i]);

end.
счастливая вне форума Ответить с цитированием
Старый 25.05.2010, 09:15   #2
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Отсортировать и сравнивать соседние.
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948
Z1000000 вне форума Ответить с цитированием
Старый 25.05.2010, 09:48   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

в данном случае сравнить попарно каждый элемент с каждым и не надо заморачиваться с сортировкой.
Код:
const N=40;
var
а: array [1..N] of integer;
i, j, min, min2, s: integer; 
begin
  for i :=1 to N do 
     readln(a[i]);

  min := 1;
  min2 := 2;
  for i :=1 to N-1 do 
     for j:=i+1 to N do begin
        if abs(a[i]-a[j])<abs(a[min]-a[min2]) then begin
             min := i;
             min2 := j;
        end;
     end;

   {вывод результатов}
    WriteLn('Минимально отличаюся элементы с индексами ',min:1,' и ', min2:1);
    Readln;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 25.05.2010, 13:03   #4
счастливая
Пользователь
 
Регистрация: 11.04.2010
Сообщений: 13
По умолчанию

Serge_Bliznykov! спасибо вам большое!!!!
счастливая вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строчки налезают друг на друга Lukker Microsoft Office Word 4 27.02.2010 07:38
Z порядок компонентов и их перекрывание друг друга Пепел Феникса Общие вопросы Delphi 6 04.05.2009 20:25
Ссылка в ячейках друг на друга ded- Microsoft Office Excel 3 10.04.2009 14:42
Наложения изображения друг на друга rudakop HTML и CSS 1 16.09.2008 02:03


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS