Question

Создать массив из 16 элементов. Заполнить его целыми случайными числами в интервале от 1 до 11. Найти в нем количество чётных элементов. Отсортировать массив по убыванию. Заменить все чётные элементы на их количество. Вывести массив в строку с комментариями. ПОМОГИТЕ ПОЖАЛУЙСТА, СДАТЬ НАДО СЕГОДНЯ!!!! ПАСКАЛЬ!

Answer 1

                                             PascalABC.NET

begin

 var a := ArrRandom(16,1,11);

 a.Println;

 var CountEven := a.Where(x -> x.IsEven).Count;

 Println('Количество четных элементов:', CountEven);

 var q := a.Where(x -> x.IsEven).Select(x -> CountEven);

 var w := a.Where(x -> x.IsOdd).Select(x -> x);

 a := (q+w).SortedDescending.ToArray;

 foreach x: integer in a do

   Println(x);

end.