Question

Дан массив N<100 целых чисел. Вывести все четные элементы массива по возрастанию.
PASCAL 
СРОЧНОООО много баллов

Answer 1

// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n =');
  var a:=ArrRandom(n,10,90); a.Println;
  a.Where(x->x mod 2=0).Sorted.Println;
end.

Пример:
n = 20
85 20 19 39 55 89 70 48 16 24 67 77 68 80 45 61 42 25 55 77
16 20 24 42 48 68 70 80

Answer 2

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
   ArrRandom(ReadInteger('n->'),-100,100).Println.Where(t->t.IsEven).Sorted.Println;
end.

Пример:
n-> 10
57 38 70 -39 33 -71 92 -37 6 -98
-98 6 38 70 92