Иллюзионист в цирке показывает фокус. У него имеется 50 монет, он раскладывает их в несколько кошельков. После этого зритель из зала называет любое число от 1 до 50, и фокусник отдаёт ему один или несколько кошельков, содержащих в точности названное зрителем количество монет. Как фокуснику нужно разложить монеты по кошелькам, чтобы он мог отдать любое указанное число монет от 1 до 50?
Укажите в ответе количество монет в каждом кошельке в виде последовательности чисел, разделённых пробелами. Сумма всех чисел в ответе должна быть равна 50. Чем меньше кошельков вы используете в своём решении, тем больше вы получите.
152
236
Ответы на вопрос:
const N = 20;
const MAX = 70;
const MIN = 20;
var A: array [1..N] of integer;
var i,c1,c2: integer;
begin
randomize();
c1:=-1;
c2:=-1;
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
write(A[i],' ');
if (A[i] mod 2 = 0) then
if (c1=-1) or (A[i]<A[c1]) then c1:=i;
if (A[i] mod 2 <> 0) then
if (c2=-1) or (A[i]<A[c2]) then c2:=i;
end;
writeln();
if (c1<>-1) then writeln('Минимальное четное: ',A[c1]);
if (c2<>-1) then writeln('Минимальное нечетное: ',A[c2]);
end.
Популярно: Информатика
-
alexvelova05.01.2020 14:34
-
valeriyanikiti08.12.2021 15:18
-
тооироь22.05.2023 09:16
-
Nikitoskin10216.02.2021 02:15
-
vadimfarxudinov31.08.2020 14:06
-
mdominik08.06.2021 13:12
-
bbayy28.06.2023 20:34
-
SilverSalt24.11.2022 20:01
-
Lisonьka12423.04.2021 10:59
-
Vadosik22818.05.2022 08:28