Дано N целых чисел. Число называется "прекрасным", если его можно поделить
Дано N целых чисел. Число величается "красивым", если его можно поделить на 3 без остатка. Для вас нужно избрать таких K "благовидных" чисел, чтоб их сумма была мала. Нужно вывести эту сумму.
Формат ввода:
N K
A[1] A[2] ... A[N]
Ограничения:
1lt;=N, Klt;=100
1lt;=A[i]lt;=1000
Гарантируется, что "красивых" чисел всегда gt;= K.
Формат вывода:
Ans малая сумма K "красивых" чисел.
Пример ввода: Пример вывода:18
7 4
3 2 3 6 1 12 6
1 ответ
Фрасынюк Кира
//PascalABC.NET
var
b : array of integer;
m : integer;
begin
// Ввод данных
var n := ReadInteger('Введите число N всех чисел массива: ');
var k := ReadInteger('Введите число К "благовидных" чисел: ');
writeln('Введите все числа в массиве');
var a := ReadArrInteger(n);
// Резервируем место для слагаемых
b := new integer[k];
// Просмотрим все данные числа
foreach var i in a do
// Выберем только кратные трем
if i mod 3 = 0 then begin
// Если есть свободное место, поместим туда
m := b.FindIndex(x -gt; x=0);
if m lt;gt; -1 then b[m] := i
else
// Если свободного места нет, найдем наибольший элемент
// и заменим его
begin
m := b.FindIndex(x -gt; (xgt;i) and (x=b.Max));
if m lt;gt; -1 then b[m] := i;
end;
end;
// Выведем сумму
write('Сумма частей - ', b.Sum)
end.
var
b : array of integer;
m : integer;
begin
// Ввод данных
var n := ReadInteger('Введите число N всех чисел массива: ');
var k := ReadInteger('Введите число К "благовидных" чисел: ');
writeln('Введите все числа в массиве');
var a := ReadArrInteger(n);
// Резервируем место для слагаемых
b := new integer[k];
// Просмотрим все данные числа
foreach var i in a do
// Выберем только кратные трем
if i mod 3 = 0 then begin
// Если есть свободное место, поместим туда
m := b.FindIndex(x -gt; x=0);
if m lt;gt; -1 then b[m] := i
else
// Если свободного места нет, найдем наибольший элемент
// и заменим его
begin
m := b.FindIndex(x -gt; (xgt;i) and (x=b.Max));
if m lt;gt; -1 then b[m] := i;
end;
end;
// Выведем сумму
write('Сумма частей - ', b.Sum)
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов