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

просто скопировать и все/???

Смотря какая цель. В принципе, чтобы запустить программу - да скопировать по end. включительно

спсибо! я там ещё кинул, помоги

Спасибо принято кнопочкой синей выражать, а его размер - числом звездочек рядом.

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