Question

Дана последовательность, расположить ее элементы, кратные 3, по убыванию.(ПАСКАЛЬ)
помогите!!

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Число элементов =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a.Where(p -> p mod 3 = 0).OrderDescending.Println

end.