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

простите, а можно немного понятнее?

1)beginvar 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.