pascalabcnet/InstallerSamples/LINQ/First3Min.pas

4 lines
102 B
ObjectPascal

// Первые 3 минимума
begin
SeqRandom(20).Println.Sorted.Distinct.Take(3).Println;
end.