Question

Заполните массив целыми случайными двузначными числами 2 и нечетные элементы и ввести новый массив -паскаль

Answer 1

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018

begin

 ArrRandom(ReadInteger('Кол-во элем. ='), 10, 99).Println.Select(t -> t.IsOdd ? t * 2 : t).Println;

end.