<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
begin var n:=ReadInteger('n='); var a:array of real; a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln; a.Where(t->Trunc(t) mod 3 <>0).Println end.