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.