Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из

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.