Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 27.10.2021
Сообщений: 9

Определить максимальную сумму пары чисел, кратную d

26.09.2022, 10:49. Показов 1657. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача D. Последовательность

Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт

На вход программы поступает последовательность из n целых положительных чисел. Рассматриваются все пары различных элементов последовательности, находящихся на расстоянии не менее,
чем k (разница в индексах элементов пары должна быть k или более). Необходимо определить максимальную сумму пары чисел кратную d, при этом первый элемент пары должен быть больше
второго (a[i] > a[j], i < j). Если такой пары нет, то необходимо определить количество нечётных и
кратных трём элементов последовательности.

Формат входных данных
В первой строке входных данных задаётся количество чисел n (k + 1 <= n <= 100 000).
Во второй строке записано натуральное число k (2 <= k <= 100).
В третьей строке записано натуральное число d (2 <= d <= 100).
Затем задается последовательность: в каждой из последующих n строк записано одно натуральное число, не превышающее 1 000 000.


Формат выходных данных
Программа должна вывести в первой строке одно число — максимальную сумму пары элементов,
находящихся в последовательности на расстоянии не менее чем k, в которых сумма элементов кратна
d. Если ни одной подходящей пары нет, нужно вывести одно число — количество нечётных и кратных
трём элементов последовательности.

Примеры:
1) Входные:
5
3
5
20 15 25 10 5
Выход:
30

2) Входные:
5
3
5
5 10 25 15 20
Выход:
1

Замечание
В первом примере могут получиться следующие пары элементов, находящихся на расстоянии 3
и более: (20; 10), (20;5), (15;5). В каждой паре первый элемент больше второго и сумма элементов
кратна 5. Максимальная из этих сумм 30.
Во втором примере могут получиться следующие пары элементов, находящихся на расстоянии 3
и более: (5;15), (5;20), (10,20). В каждой паре сумма элементов кратна 5, но ни в одной из них первый
элемент пары не превосходит второй. Поэтому программа должна вывести количество нечётных
элементов, кратных 3. Такой элемент только один — это число 15.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.09.2022, 10:49
Ответы с готовыми решениями:

Найти сумму чисел, кратную трем.
найти сумму i(Е сверху N, снизу i=1 ) кратно трём!

Функция, выводящая на печать сумму чисел кратную 3
Задача 1. Написать функцию, выводящую на печать сумму чисел, кратных 3, от 3 до 3N, но не большую чем число А. Значения N и А передать...

Определить максимальную сумму значений чисел в паре
Помогите пожалуйста, завтра зачёт, не успеваю сделать. Заранее огромное спасибо Даны n пар чисел: (a1,b1),(a2,b2)...(an,bn). Определить: ...

6
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
26.09.2022, 13:57
karamzyatina, прости, а что не получается?
не вижу никаких сложностей в задаче.
считать n, k, d, считать массив чисел.
в двойном цикле найти подходящую максимальную сумму, если такой нет, найти количество нечётных, кратных 3.
Что тебя смущает?
0
0 / 0 / 0
Регистрация: 27.10.2021
Сообщений: 9
28.09.2022, 14:31  [ТС]
Проблему так и не помогли решить... Ну помогите кто-то пожалуйста
0
 Аватар для Sun Serega
2355 / 1458 / 526
Регистрация: 07.04.2017
Сообщений: 4,798
28.09.2022, 15:06
Цитата Сообщение от karamzyatina Посмотреть сообщение
так и не помогли решить
Так и не ответили на вопрос.

Или проблема - это лень? С ней можете справится только вы.
0
259 / 205 / 60
Регистрация: 25.05.2022
Сообщений: 879
28.09.2022, 21:54
А отрывок ниже что-то говорит или божья роса?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
##
var N:=ReadlnInteger('N=');
var k:=ReadlnInteger('k=');
var d:=ReadlnInteger('d=');
var S:=0; //максимальная сумма
var M:=0; //количество кратных
var X:=new integer[N]; //отсчёт с нуля
for var i:=0 to N-1 do X[i]:=ReadlnInteger('X'+i.tostring+'=');
Println(X);
 
for var i:=0 to N-1 do begin
  if X[i]mod k=0 then Inc(M); //кратное?
  for var j:=0 to N-1 do if Abs(i-j)>=k then //отступ равен или больше k?
    if (i<j) and (X[i]>X[j]) then begin //в таком порядке?
      Println(X[i],':',X[j]); //просмотр претендентов
      var _S:=X[i]+X[j]; //временная сумма
      if (_S>S) and (_S mod d=0) then S:=_S; // больше S и кратно d?
    end;//if i<j
   end;// for var i
if S>0 then Println('S=',S)else Println('M=',M)
0
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
29.09.2022, 12:24
Цитата Сообщение от Yuri V Посмотреть сообщение
Pascal
11
12
13
14
for var i:=0 to N-1 do begin
  if X[i]mod k=0 then Inc(M); //кратное?
for var j:=0 to N-1 do if Abs(i-j)>=k then //отступ равен или больше k?
    if (i<j) and (X[i]>X[j]) then begin //в таком порядке?
не надо так делать.
Условие, что i<j и условие удалённости j от i на k или более НУЖНО закладывать в условия цикла, чтобы лишние элементы попусту не гонять.

Pascal
11
12
13
for var i:=0 to N-1-k do begin
  for var j:=i+k to N-1 do 
    if  X[i]>X[j]) then begin
ну и кратные 3 удобнее сразу же при вводе считать.
1
259 / 205 / 60
Регистрация: 25.05.2022
Сообщений: 879
29.09.2022, 13:27
mr-Crocodile, именно так: это "в лоб" по-быстрому (около минуты) записанная задача "словами" Паскаля - без оптимизации и прочего.

Если уже требуют вложенные циклы и фильтры-оговорки, по идее, хотя бы черновик делать уже должны уметь, или не факт? Раньше были "задачи со звёздочкой", но только самым толковым и желающим, а сейчас - интернеты.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.09.2022, 13:27
Помогаю со студенческими работами здесь

Определить максимальную сумму чисел в одной строке
В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победителем считается тот спортсмен, у которого сумма...

Создать файл f1, где каждая компонента из 9 чисел. Определить максимальную сумму среди каждой тройки чисел. Эти максимальные суммы записать в новый ф
Создать файл f1, где каждая компонента из 9 чисел. Определить максимальную сумму среди каждой тройки чисел. Эти максимальные суммы...

Найти максимальную сумму чисел в одной строке и вывести на экран эту сумму и номер строки
2) Если в условиях задачи сказано &quot;Дан двумерный массив&quot;, то программа получает на вход два числа n и m, являющиеся числом строк и...

Для каждого x найти сумму y, кратную числу B
Для каждого x найти сумму y, кратную числу B

Определить в числе наименьшую цифру, кратную 2-м
Дано натуральное число n определить: наименьший цифру кратную 2-м


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru