Question

Составить программу удаления из массива последнего нечётного элемента. Массив заполнить случайным образом в диапазоне [-35;50], размерность массива 10 элементов

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, -35, 50);

 a.Println;

 var i := a.FindLastIndex(p -> p.IsOdd);

 a := a?[:i] + a?[i + 1:];

 a.Println

end.