надо заполнить массив , состоящий из 11 элементов

ввод клавиатуры

и через константу

в квадратах 1 , 8, 9,10,15,21,23,24,19,64,65

Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.

m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)

Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.

Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)

i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.

--- на Python ---

from random import*

n = int(input('Введите размерность массива : '))

a=[0]*n

for i in range (0,n):

   a[i] = randint(0,2)

print(a)

a = sorted(a)

print(a)

--- на pascal подходит для Delphi и Lazarus ---

var

 a : array of integer;

 i, j, n : integer;

begin

 randomize;

 writeln('Input n');

 readln(n);

 SetLength(a,n);

 for i := 0 to n - 1 do begin

   a[i] := random(3);

   write(a[i]);

 end;

 i:=0;

 while i < n-1 do

   if a[i]>a[i+1] then begin

     j := a[i];

     a[i] := a[i+1];

     a[i+1] := j;

     i:=0;

   end

   else

     inc(i);

 writeln('');

 for i := 0 to n - 1 do

     write(a[i]);

 

end.