Сформировать массив Е из 12 целых чисел
Заполнить случ. от -3 до 18
Заменить в массиве все четные на 0
Вывести массив

var e: array [1..12] of integer;i,k:Integer;Beginrandomize;for i:=1 to 12 dobegine[i]:=random(21)-3;if (e[i] mod 2 = 0) thene[i] :=0;write(e[i],' ');end;end.