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

Vano
Oct 24, 2020
begin
var L:=SeqRandom(10,1,99).Where(t->t.IsEven).ToList;
while L.Count<10 do begin
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
263
Смежные вопросы: