Написать программу, которая вводит массив из n вещественных случайных чисел, лежащих в диапазоне от -10 до 10. вывести на экран полученный массив и массив, составленный только из нечётных элементов исходного. протестировать программу.

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var n:=ReadInteger();
  var a:=ArrRandom(n,-10,10);
  a.Println;
  for var i:=0 to n-1 do if a[i]mod 2<>0 then print(a[i]);
end.