PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-31,45); a.Println;
var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.
Пример
n= 13
-2 14 -27 20 -12 38 -16 31 13 29 21 -24 41
-27 31 13 29 21 41
Объяснение:
лайкни
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-31,45); a.Println;
var b:=a.Where(t->t.IsOdd).ToArray; b.Println
end.
Пример
n= 13
-2 14 -27 20 -12 38 -16 31 13 29 21 -24 41
-27 31 13 29 21 41
Объяснение:
Пример
n= 13
-2 14 -27 20 -12 38 -16 31 13 29 21 -24 41
-27 31 13 29 21 41
лайкни