Написать программу, которая генерирует 10 четных чисел и сортирует их по возрастанию....

Question

Написать программу, которая генерирует 10 четных чисел и сортирует их по возрастанию.
Промежуток чисел - до 100

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var L:=SeqRandom(10,1,99).Where(t->t.IsEven).ToList;
  while L.Count<10 do begin<br>    var k:=Random(1,99);
    if k.IsEven then L.Add(k)
    end;
  L.Println.OrderBy(t->t).Println
end.

Пример
48 12 12 98 62 14 62 8 22 24
8 12 12 14 22 24 48 62 62 98

Comments

Спасибо!