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.

Answer 2

Конечно, вот пример кода на языке Паскаль, который выполняет указанные вами действия:

pascalCopy code
program ArrayManipulation;

const
  N = 16;
  
var
  arr: array[1..N] of Integer;
  i, evenCount: Integer;

begin
  // Заполняем массив случайными числами от 1 до 11
  Randomize;
  for i := 1 to N do
    arr[i] := Random(11) + 1;
  
  // Ищем количество чётных элементов
  evenCount := 0;
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then
      evenCount := evenCount + 1;
  end;
  
  // Сортируем массив по убыванию
  for i := 1 to N - 1 do
  begin
    for j := i + 1 to N do
    begin
      if arr[i] < arr[j] then
      begin
        // Обмен элементов местами
        var temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;
  
  // Заменяем чётные элементы на их количество
  for i := 1 to N do
  begin
    if arr[i] mod 2 = 0 then
      arr[i] := evenCount;
  end;
  
  // Выводим массив с комментариями
  Write('Массив после всех операций: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  
  // Завершаем программу
  Readln;
end.

Этот код создает массив из 16 элементов, заполняет его случайными числами от 1 до 11, находит количество четных элементов, сортирует массив по убыванию, заменяет четные элементы на их количество и выводит итоговый массив с комментариями. Надеюсь, это поможет вам выполнить задачу!