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

const n=20;var a:array[1..n]of integer;i,b,k,c,f,g,h:integer;beginfor i:=1 to n do a[i]:=Random(70)-20;for i:=1 to n dowrite(a[i],' ');writeln;for i:=1 to n do beginif (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then beginb:=i;for b:=i to (n-1) doa[i]:=a[i+1];end; end;for i:=1 to n dowrite(a[i],' ');write('введите к ');read(k);for i:=1 to n do beginif a[i] mod i = 0 then beginc:=i;for i:=n downto c+1 do begina[i]:=a[i-1];a[c+1]:=k;end;end;end;for i:=1 to n dowrite(a[i],' ');writeln;f:=0; g:=0;for i:=n downto 1 do beginif (a[i]>0) then f:=i;end;if a[f]=0 then write('нет положительных ');for i:=n downto 1 do beginif (a[i]<0) then g:=i;end;if (a[g]=0) then write('нет отрицательных ');if (a[f]<>0) and (a[g]<>0) then beginh:=a[f]; a[f]:=a[g]; a[g]:=h; end;for i:=1 to n dowrite(a[i],' ');writeln;end.