У Деда Мороза есть N коробок конфет. Известно, количество конфет в каждой коробке и задано в таблицеA[1:N].Х детей хотят получить четное число конфет, а Y детей - нечетное.

[mari_fire]

Помогите решить пожалуйста! Я не могу...
У Деда Мороза есть N коробок конфет. Известно, количество конфет в каждой коробке и задано в таблицеA[1:N].Х детей хотят получить четное число конфет, а Y детей - нечетное. Составьте алгоритм, определяющий, может ли Дед Мороз раздать все N коробок так, чтобы X детей получили четное число конфет. Y-нечетное, и каждому ребенку досталась как минимум одна коробка. Делить коробки не разрешается.
Помогите!!!!!!!!!!!!!!

[digitalis]

Условие неполное: а сколько коробок конфет получает написавший прогу ?
Не могу не отметить: условие задачи идиотичнейшее . Как у Задорнова с оленем, рассчитывающим падение ветки в ручей по параболе.

[newerow1989]

а сколько коробок конфет получает написавший прогу ?

Я все N коробок получаю, потому что жадный!!! И никому не отдам, потому что это всё моё!!!

условие задачи идиотичнейшее

Согласен!

const n=10;
var a:array[1..n] of integer;
    i,x,y,n1,n2:integer;
begin
   Write('x = '); Readln(x);
   Write('y = '); Readln(y);
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=10+Random(21);
      Write(a[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   n1:=0;
   n2:=0;
   For i:=1 to n do
      If a[i] mod 2=0 then
         n2:=n2+1 else
         n1:=n1+1;
   If (x=n2) and (y=n1) then
      Writeln('yes') else
      Writeln('no');
   Writeln('no chet = ',n1,'; chet = ',n2);
   Readln;
end.

[Serge_Bliznykov]

newerow1989, неверное решение.
Вы упускаете из виду условие "и каждому ребенку досталась как минимум одна коробка."
т.е. коробок у ребёнка может быть больше одной.
проверьте своё решение, например,
для x=2, y=2, коробок 5 с количеством конфет: нечет, нечет, чёт, нечет, нечет.

или x=2, y=2, коробок 6 с количеством конфет: нечет, нечет, чёт, нечет, нечет, чёт

очевидно, что в обоих случаях ответ должен быть положительный.

[digitalis]

Да, жадность профи подвела - все конфеты пролетели мимо

[newerow1989]

Тогда только так

const n=10;
var a:array[1..n] of integer;
    i,x,y,n1,n2:integer;
begin
   Write('x = '); Readln(x);
   Write('y = '); Readln(y);
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=10+Random(21);
      Write(a[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   n1:=0;
   n2:=0;
   For i:=1 to n do
      If a[i] mod 2=0 then
         n2:=n2+1 else
         n1:=n1+1;
   n2:=n2-x;// сколько коробок осталось, если по одной коробке каждому ребенку давать
   n1:=n1-y;
   If (n2>=0) and (n1>=0) then
      Writeln('yes') else
      Writeln('no');
   Writeln('no chet = ',n1,'; chet = ',n2);
   Readln;
end.