Question

П О М О Г И Т Е, П О Ж А Л У Й С Т А!
1) С помощью датчика случайных чисел получить 15 вещественных чисел n (38<n<39).
2) С помощью датчика случайных чисел получить 20 целых чисел на диапозоне [0..5]. Вывести саму эту последовательность и все её нечетные элементы.

Answer 1

1)
begin
var a:=ArrRandomReal(15,38,39);
a.Println;
end.

2)
begin
  var a := ArrRandom(20, 0, 5);
  Writeln('Последовательность ');
  a.Println;
  Writeln('Нечетные ');
  a.Where(x -> odd(x)).Println;
end.