Определите концепцию, не имеющую отношения к технологии WiMAX. Обеспечьте беспроводной широкополосный доступ
Создание точек доступа, не ограниченных географическим положением
Высокоскоростной обмен информацией и телекоммуникационные услуги
Обеспечение обмена цифровыми данными между разными устройствами на расстоянии десятков метров
Подключите точки доступа Wi-Fi друг к другу и к другим сегментам Интернета.

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

begin

 var N: array of integer;

 SetLength(N,16);

 N.FillRandom(1,11);

 var Q:=N.FindAll(x -> x mod 2 = 0).Length;

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

 N.Sort; Reverse(N);

 for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l];

 writeln('Полученный массив: ',N);

end.

Объяснение:

var N: array of integer; Вводим наш массив с числами

 SetLength(N,16); Устанавливаем его длину, 0 - первый элемент, 15 - последний, итого 16 ячеек

 N.FillRandom(1,11); Заполняем массив случайным образом числами от 1 до 11

 var Q:=N.FindAll(x -> x mod 2 = 0).Length; Находим количество четных элементов. x mod 2 остаток от деления каждого элемента на 2

 {Процедура FindAll заносит все значения, по условию в отдельный массив, через .Length смотрим его длину}

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

 N.Sort; Reverse(N); N.Sort - сортирует массив по возрастанию, а reverse() меняет последовательность на противоположную, соответственно, теперь он отсортирован по убыванию

 for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l];  От начала массива и до его конца, над каждым элементом смотрим - четный он или нет, если четный - заменяем на Q (число элементов)

 writeln('Полученный массив: ',N);