Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.11.2011, 20:19   #1
daniil123
Пользователь
 
Регистрация: 19.09.2011
Сообщений: 23
По умолчанию Максимальная пара

Дан массив из N(1<=N<=100000)целых чисел. Найти соседних элемента, сумма которых максимальна.

В первой строке дано натуральное число N, во второй строке - N целых чисел.
Выведите эти элементы в порядке возрастания их индексов. Если искомых пар несколько, выведите первую из них.
Пример:
Вход:
5
1 3 7 2 4
Выход:
3 7
daniil123 вне форума Ответить с цитированием
Старый 16.11.2011, 20:22   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Код:
k:=1;
for i:=2 to n-1 do
if (a[i]+a[i+1])>(a[k]+a[k+1]) then k:=i;
writeln(a[k]:6,a[k+1]:6);
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
максимальная последовательность promt Общие вопросы C/C++ 20 24.04.2011 19:54
Максимальная высота h fort-_-minor Общие вопросы C/C++ 6 04.08.2010 13:41
Максимальная длина слова Anarki Общие вопросы C/C++ 4 30.09.2009 00:10
Максимальная высота элемента predtech HTML и CSS 2 23.07.2009 13:51