Question

Дан линейный массив A[1..N], содержащий целые числа. Преобразовать элементы массива по следующему правилу: если элемент четный, прибавить к нему 1, если нечетный – умножить на два.

Answer 1

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 a.Transform(t -> t.IsEven ? t + 1 : t * 2);

 a.Println

end.