Дан массив из 10 целых элементов из диапазона [-10; 7]. переписать в другой массив все нечетные элементы. при этом вывести исходный и полученный массив

program zz1;

var mas1, mas2:array[1 ... 10] of integer;

i, p:integer;

begin

for i:=1 to 10 do / /вводим 10 чисел в массив случайным образом из заданного диапазона

mas1[i]:=random (18) - 10;

for i:=1 to 10 do / /выврдим исходный массив на экран

write (mas1[i],' ');

p:=1;

for i:=1 to 10 do

if mas1[i] mod 20 then begin mas2[p]:=mas1[i]; p:=p+1; end; / /проверяем, если элемент массива нечетный, то записываем его в другой массив, считаем его номер

writeln; / /переходим на новую строку для вывода

for i:=1 to p-1 do

write (mas2[i],' '); / /выводим полученный массив

end.