9 lines
178 B
ObjectPascal
9 lines
178 B
ObjectPascal
|
begin
|
||
|
|
var a := SeqRandom(10,1,9);
|
||
|
|
a.Println;
|
||
|
|
Println(a.Min,a.Max,a.Sum);
|
||
|
|
a.Take(5).Println;
|
||
|
|
a.Skip(5).Println;
|
||
|
|
|
||
|
|
a.Where(x->x mod 2 = 0).Select(x->x*x).Println;
|
||
|
|
end.
|