Дан одномерный массив целых чисел. заменить все четные числа в массиве 0.

Const
  n = 20;

var
  x: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
  end;
  Writeln;
  Writeln('*** Результирующий массив ***');
  for i := 1 to n do
  begin
    if (x[i] mod 2) = 0 then x[i] := 0;
    Write(x[i]:4);
  end;
end.

Тестовое решение:
*** Исходный массив ***
  -4  -8  42  18  -4 -19 -35  21  19  32 -45  45 -43 -22 -17 -12  11   9 -47  37
*** Результирующий массив ***
   0   0   0   0   0 -19 -35  21  19   0 -45  45 -43   0 -17   0  11   9 -47  37