Массив задан датчиком случайных чисел на интервале [-31;45].Сформировать новый массив В, состоящий из нечетных элементов массива А. Размер произвольный.

Объяснение:

PascalABC.NET 3.5.1

begin

 var a := ArrRandom(random(100), -31, 45);  //Генерируем случайный массив

 a.Println;  //Печатаем его. Удалите строку, если не нужно

 var b := a.Where(p -> p mod 2 <> 0).ToArray;  //массив b формируется по правилу _выбранный элемент нечётный_. Полученная последовательность приводится к типу Array of T

 b.Println; //Печатаем новый массив.

end.

Объяснение:

значит  так  кролик  это  4 лапы + 1  голова  5(ед) ,  голубь 2 лапы  + 1 голова= 5(ед),    размещаем  сначало  во  все клетки по  голобю + по кролику  получается в каждой  клетке уже по  8 (ед)    остается 3 кролик и  4  голубя        5 елток  тоесть еще по  одному  кролику  и  в 2  оставшиеся по 2  голобу    получается    3 клетки  будет  по 1 голубю и 2 кролика    и 2  клетки  с 1 кроликом и 3 голубями          проверяем    1*3+2*5=13      и    5*1+3*3=14   тоесть  все верное  : )  

наверно так

a: array [1..100] of longint