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.

Answer 2

Для преобразования элементов линейного массива A[1..N] по указанному правилу (прибавить 1 к четным элементам и умножить на 2 нечетные элементы), можно пройти по всем элементам массива и выполнять необходимые операции над ними. В зависимости от языка программирования, используемого в задаче, приведу пример псевдокода и пример кода на Python.

1. Пример псевдокода:

cssCopy code
Процедура преобразовать_массив(A[1..N])
    Для i от 1 до N
        Если A[i] четное
            A[i] = A[i] + 1
        Иначе
            A[i] = A[i] * 2
        Конец если
    Конец для
Конец процедуры

2. Пример кода на Python:

pythonCopy code
def преобразовать_массив(A):
    for i in range(len(A)):
        if A[i] % 2 == 0:
            A[i] = A[i] + 1
        else:
            A[i] = A[i] * 2

# Пример использования функции:
массив = [2, 5, 8, 10, 3]
преобразовать_массив(массив)
print(массив)  # Выведет: [3, 10, 9, 11, 6]

В данном примере массив [2, 5, 8, 10, 3] преобразуется согласно правилу и становится [3, 10, 9, 11, 6]. Четные числа увеличиваются на 1, а нечетные умножаются на 2.