составте програму из 10 элементов массива [-8;8] подсчитывает количество нечётных чисел, все четные заменяет нулём

var i,k:integer; a:array[1..10] of integer;beginfor i:=1 to 10 do  begin a[i]:=random(17)-8; write(a[i]:4); end;for i:=1 to 10 doif a[i] mod 2<>0 then inc(k) else a[i]:=0;writeln;for i:=1 to 10 do write(a[i]:4);writeln;writeln('кол-во нечет=',k);end.