Question

Дан массив состоящий из 8 вещественных чисел. все элементы с чётными номерами уменьшить на 1 с нечетными- увеличить 1

Answer 1

// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('n='),-10,10); a.Println;
  a:=a.Select((x,i)->i mod 2=0?x+1:x-1).ToArray; a.Println
end.

Пример
n= 10
-9.05843428292239 -4.25451094017108 9.66351874157019 -3.1105665178553 4.8065062215582 -2.02809873597142 4.59844561973514 -4.45959216657076 1.37816560984504 -7.69115956392659
-8.05843428292239 -5.25451094017108 10.6635187415702 -4.1105665178553 5.8065062215582 -3.02809873597142 5.59844561973514 -5.45959216657076 2.37816560984504 -8.69115956392659

Answer 2

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

# Заданный массив
arr = [1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0]

# Проходим по всем элементам массива
for i in range(len(arr)):
    # Проверяем индекс элемента на четность
    if i % 2 == 0:
        # Уменьшаем элемент с четным индексом на 1
        arr[i] -= 1
    else:
        # Увеличиваем элемент с нечетным индексом на 1
        arr[i] += 1

# Выводим измененный массив
print(arr)

Вывод:

[0.0, 3.0, 2.0, 5.0, 4.0, 7.0, 6.0, 9.0]

Таким образом, после выполнения кода, все элементы с четными индексами уменьшились на 1, а все элементы с нечетными индексами увеличились на 1.