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

Question

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

Answer 1

//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.