Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов.

Program rappey;const n=10;vara:array[1..n] of integer;i,k:integer;beginfor i:=1 to n do begina[i]:=random(10);write(a[i],' ');end;writeln;for i:=1 to n do beginif a[i] mod 2<>0 then beginwrite(a[i],' ');end;end;writeln;end.

Program rappey;const n=10;vara:array[1..n] of integer;i,k:integer;beginfor i:=1 to n do begina[i]:=random(10);write(a[i],' ');end;writeln;for i:=1 to n do beginif a[i] mod 2<>0 then beginwrite(a[i],' ');end;end;writeln;end.