Question

4. Дан массив из N элементов. В нем четные числа заменить на 0, а нечетные на -1, вывести на экран монитора содержимое массива до обработки и после обработки.

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Transform(t->t.IsOdd?-1:0); a.Println
end.

Пример
n= 17
37 43 -6 -12 11 -50 30 -49 -35 -29 28 24 29 -11 -50 -29 -10
-1 -1 0 0 -1 0 0 -1 -1 -1 0 0 -1 -1 0 -1 0

Answer 2

Const
N=10;
Var
A: array[1..N] of integer;
i: integer;
Begin
For i:=1 to N do Read(A[i]);
For i:=1 to N do Write(A[i],' ');
Writeln;
For i:=1 to N do
If A[i] mod 2=0
Then A[i]:=0
Else A[i]:=-1;
For i:=1 to N do Write(A[i],' ');
End.

Answer 3

Для решения данной задачи, следует пройтись по каждому элементу массива и проверить его на четность. Если число четное, то заменяем его на 0, иначе заменяем его на -1.

Приведу пример кода на языке Python, который решает данную задачу:

```python
# Функция для замены четных и нечетных чисел в массиве
def replace_even_odd(arr):
for i in range(len(arr)):
if arr[i] % 2 == 0: # если число четное
arr[i] = 0
else:
arr[i] = -1

# Исходный массив
arr = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]

# Вывод содержимого массива до обработки
print("Исходный массив:", arr)

# Замена четных и нечетных чисел в массиве
replace_even_odd(arr)

# Вывод содержимого массива после обработки
print("Массив после обработки:", arr)
```

В результате выполнения данного кода будет получен следующий вывод:

```
Исходный массив: [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
Массив после обработки: [-1, 0, -1, 0, -1, 0, -1, 0, -1, 0]
```

Таким образом, видно, что четные числа были заменены на 0, а нечетные - на -1.