Question

Задан одномерный массив, состоящий из n-элементов, вводимых с клавиатуры. Все элементы, значения которых равны 0, заменить на их индекс; все отрицательные элементы заменить на модуль этих чисел; значения положительных элементов увеличить в 5 раз. Все действия сделать в одном цикле. Вывести на печать новый массив.

Answer 1

// PascalABC.NET

begin

var n := ReadInteger;

var a := ReadArrInteger(n);

for var i := 0 to a.High do

 case Sign(a[i]) of

   -1: a[i] := -a[i];

   0: a[i] := i; // индексы от 0 !

   1: a[i] *= 5;

 end;

 a.Print

end.

Answer 2

Давайте решим эту задачу на языке Python. Вот код, который реализует указанные условия:

pythonCopy code
n = int(input("Введите размер массива: "))
array = []

for i in range(n):
    element = int(input("Введите элемент массива: "))
    array.append(element)

for i in range(n):
    if array[i] == 0:
        array[i] = i
    elif array[i] < 0:
        array[i] = abs(array[i])
    else:
        array[i] *= 5

print("Новый массив:", array)

В этом коде мы сначала запрашиваем у пользователя размер массива n и вводим элементы массива с клавиатуры. Затем мы проходим по каждому элементу массива в одном цикле и выполняем требуемые действия в соответствии с условиями задачи.

Если элемент равен 0, мы заменяем его на индекс i. Если элемент отрицательный, мы заменяем его на модуль этого числа с помощью функции abs(). Если элемент положительный, мы умножаем его значение на 5.

В конце мы выводим новый массив на печать.