luciatarasova
14.11.2022 03:54

Сеня выбирает себе подарки на новый год. он знает, что дед мороз купит ему ровно два подарка: один якобы от мамы, а другой якобы от папы. в магазине, где дед мороз будет покупать подарки, n подарков, про каждый подарок известна его цена: цена i-го подарка равна ai рублей.

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

сене выбрать себе подарки.
первая строка ввода содержит два целых числа: n и x (2 ≤ n ≤ 105, 2 ≤ x ≤ 109).

вторая строка ввода содержит n целых чисел: (1 ≤ ai ≤ 109).
выведите одно целое число: максимальную суммарную цену двух различных подарков, не превышающую x. если таких не существует - выведите 0.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
maximpopov2001
28.07.2022 20:53

Задача А

program Boom;

uses crt;

var

 a, b: integer;

begin

 Read(a, b);

 if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);

end.

Тестовое решение

12

52

Наибольшее число 52

Задача Б

program Boom;

uses crt;

 

var

     a:array[1..4] of Integer;

     max:integer;

     i:byte;

Begin

for i:= 1 to 4 do

Begin

Write('Введите число:');

Read(a[i]);

End;

max := a[1];

for i:= 2 to 4 do

if a[i] > max then

max := a[i];

Write('Наибольшее число:');

WriteLn(max);

End.

Тестовое решение:

Введите число:12

Введите число:53

Введите число:34

Введите число:63

Наибольшее число:63

0,0(0 оценок)
Ответ:
Kotmi679
28.07.2022 20:53

Задача А

program Boom;

uses crt;

var

 a, b: integer;

begin

 Read(a, b);

 if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);

end.

Тестовое решение

12

52

Наибольшее число 52

Задача Б

program Boom;

uses crt;

 

var

     a:array[1..4] of Integer;

     max:integer;

     i:byte;

Begin

for i:= 1 to 4 do

Begin

Write('Введите число:');

Read(a[i]);

End;

max := a[1];

for i:= 2 to 4 do

if a[i] > max then

max := a[i];

Write('Наибольшее число:');

WriteLn(max);

End.

Тестовое решение:

Введите число:12

Введите число:53

Введите число:34

Введите число:63

Наибольшее число:63

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота