Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.63/41: Рейтинг темы: голосов - 41, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 20.07.2014
Сообщений: 4

Максимальная сумма двух элементов последовательности

20.07.2014, 23:28. Показов 8132. Ответов 20
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На вход программе подаётся последовательность целых чисел, каждое из которых не превосходит по модулю 2*10^9 . Числа записаны в одной строке через пробел. Признак конца ввода
(в последовательность не входит) – число 2,1*10^9. Требуется найти максимальную сумму двух элементов этой последовательности, которые располагаются друг от друга на расстоянии не менее 3 (между ними должно быть как минимум два других элемента последовательности). Гарантируется, что в последовательности будет не менее четырёх элементов. Разрешено использовать условные операторы, операторы ввода-вывода, все циклы.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.07.2014, 23:28
Ответы с готовыми решениями:

максимальная сумма двух соседних элементов
найти максимальную сумму двух соседних элементов в одномерном массиве и вывести эти элементы в порядке возрастания их индексов. Delphi....

Максимальная сумма элементов строки / минимальная сумма элементов столбца матрицы
дан двумерный массив. Найти: а)максимальную сумму элементов строки б) минимальную сумму элементов столбца нужна помощь не знаю что...

Вывести значение элемента последовательности, у которого сумма цифр максимальная
Задана натуральная числовая последовательность, признаком завершения которой является ноль, записанный после перечисления всех элементов...

20
0 / 0 / 0
Регистрация: 20.07.2014
Сообщений: 4
31.07.2014, 12:02  [ТС]
Студворк — интернет-сервис помощи студентам
он имел ввиду так, я думаю
Pascal
1
2
3
4
5
6
7
8
9
10
program z11;
var
a,b,c,d,e,m:int64;
begin
writeln('write sequence');read(a);read(b);read(c);read(d);m:=a+d;read(e);
while e<>2100000000 do
If a>=b then begin If (a+e)>m then m:=a+e; b:=c;c:=d;d:=e;read(e);end
       else begin if (b+e)>m then m:=b+e;a:=b;b:=c;c:=d;d:=e; read(e);end;
writeln(m);readln;readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
31.07.2014, 12:02

Вывести значение элемента последовательности, у которого сумма цифр максимальная
Задана натуральная числовая последовательность, признаком завершения которой является ноль, записанный после перечисления всех элементов...

Вывести значение элемента последовательности, у которого сумма цифр максимальная
Задана натуральная числовая последовательность, признаком завершения которой является ноль, записанный после перечисления всех элементов...

Максимальная сумма двух подряд идущих чисел
Вводится ряд натуральных чисел, ввод заканчивается нулем. Определить наибольшую сумму двух подряд идущих чисел. Например: 24 25 25 0 ...

Определить сколько раз в последовательности сумма двух соседних элементов была четной
Дана последовательность ненулевых целых чисел . Определить, сколько раз в ней сумма двух соседних элементов была четной Выручайте ...

Максимальная сумма 4х элементов
Как в получившимся массиве b,найти максимальную сумму 4х элементов #include &lt;cstdio&gt; #include &lt;cstdlib&gt; #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
21
Ответ Создать тему
Новые блоги и статьи
Генератор паролей (вариант №1)
Maks 29.10.2026
Реализация из решения ниже выполнена исключительно по моей инициативе. Самым главным критерием для меня было создание паролей, в котором отсутствуют знаки: | 1 l I Обработка содержит реквизиты: -. . .
Установка ChatGPT (Codex) на Windows без использования Microsoft Store
Fabien159 28.10.2026
Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .
Программное добавление префикса в нумерацию документов
Maks 27.10.2026
Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .
После закрытия оутлука продолжает висеть процесс в диспетчере задач
Maks 27.10.2026
С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный
AmbA 26.10.2026
Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .
Особенности gif сгенерированных в Си
russiannick 21.10.2026
Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3)
8Observer8 18.10.2026
Содержание блога | English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .
Локальный http сервер
Argus19 17.10.2026
Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru