Дан массив целых чисел a (n) (n=15) заполненный случайным образом числами из промежутка [-20,50]. Заменить нулем четные по значению элементы данного массива

program change;

var a: array [1 ... 15] of integer;

i: integer;

begin

randomize;

writeln ();

for i: = 1 to 15 do / / заполнение массива и вывод элементов

begin

a[i]: = random (71) - 20;

write (a[i] : 4);

end;

writeln ();

for i: = 1 to 15 do / / замена четных элементов массива на 0, вывод

begin

if a[i] mod 2 = 0 then a[i]: = 0;

write (a[i] : 4)

end

end.