Question

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

Answer 1

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 2

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