11 lines
164 B
ObjectPascal
11 lines
164 B
ObjectPascal
begin
|
|
var a := SeqRandom();
|
|
a.Println;
|
|
|
|
var l := new List<integer>;
|
|
foreach var x in a do
|
|
if x mod 2 = 0 then
|
|
l.Add(x);
|
|
|
|
l.Println;
|
|
end. |