<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
Вы перевозите волка и волчонка . потом оставляете волка а детеныш остается в лодке, затем в лодку садят медведя и лисицу и на берегу остаются дети. затем перевозите лисицу обратно и берете лисенка. оставляете лисенка на берегу и берете медвежонка и волчонка . оставляете медвеженка и едете за лисенком
Все три объединил в одну. Смотри в приложении.