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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2013, 19:15   #1
kirito_17
Пользователь
 
Регистрация: 26.03.2013
Сообщений: 22
По умолчанию задача на паскаль: в линейном массиве найти пару элементов с максимальной суммой

задача на паскаль
Изображения
Тип файла: jpg Безымянный1.jpg (15.8 Кб, 128 просмотров)
kirito_17 вне форума Ответить с цитированием
Старый 04.12.2013, 19:16   #2
kirito_17
Пользователь
 
Регистрация: 26.03.2013
Сообщений: 22
По умолчанию

если что то могу перевести на руский
kirito_17 вне форума Ответить с цитированием
Старый 05.12.2013, 07:13   #3
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Код:
max = a[i];
for i:=1 to n-1 do
begin
if (a[i]+a[i+1]) > max then mem_i := i;
end;
Как-то так ищем индекс первого элемента среди последовательных двоек. Если же нужны вообще все возможные пары, то ищем тупо 2 максимальных элемента и их индексы. Дальше не хватило знаний языка, чтобы прочитать задание.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 05.12.2013, 07:17   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
max = a[i];
Косяк..
100000 -100000 1 2
Ответ 3
А твой ответ 100000..
Poma][a вне форума Ответить с цитированием
Старый 05.12.2013, 09:45   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
100000 -100000 1 2
Ответ 3
я, может быть, неправильно прочитал задание, но, имхо, в данном случае правильный ответ:
1 4 (сумма 1-го и 4-го элементов дают максимальную сумму = 100002)
Serge_Bliznykov вне форума Ответить с цитированием
Старый 05.12.2013, 09:57   #6
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Цитата:
Косяк..
А нечего было ТС заставлять меня читать на украинском =)
Опять же i тогда может быть еще без значения. Правильней будет
Код:
max = a[1] + a[2];
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 05.12.2013, 10:12   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

А где в условии что они должны быть соседними то?
Цитата:
всевозможных пар
так то
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 05.12.2013, 10:25   #8
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Цитата:
В линейном массиве найдите индексы тех двух элементов, сумма которых максимальная среди всех возможных пар. Удалите все элементы массива, которые предшествуют тому элементу, индекс которого наибольший из двух найденных. Переделанный массив выведите на экран
Цитата:
100000 1 2
Мах = 100000+2
Ответ на экран = 2
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана прямоугольная целочисленная таблица. Найти четыре ячейки, образующие прямоугольник с максимальной суммой значений Simon1712 Общие вопросы Delphi 8 24.01.2014 10:07
Найти натуральное число из интервала от a до b с максимальной суммой делителей Salomon9393 Паскаль, Turbo Pascal, PascalABC.NET 7 04.12.2012 16:57
Pascal.Найти в промежутке от a до b число, с максимальной суммой делителей. I3ECJI0 Помощь студентам 2 16.05.2012 15:39
Как вывести на экран номер строки с максимальной суммой элементов и номер столбца с минимальной суммой? Vetal888888 C# (си шарп) 4 20.12.2011 13:46
В квадратной матрице найти столбец с максимальной суммой и строку с максимальной суммой (Pascal) Alexey355 Помощь студентам 1 26.03.2011 14:06