Возможность разворачивания сети без использования кабеля, что уменьшает стоимость организации и/или дальнейшего расширения сети. Это особенно важно в местах, где отсутствует возможность прокладки кабель.Предоставление доступа к сети мобильным устройствам.Широкое распространение на рынке Wi-Fi-устройств, а также их гарантированная совместимость благодаря обязательной сертификации оборудования Wi-Fi Alliance.Мобильность клиентов и возможность пользования Интернетом в любой обстановке.Возможность подключения к сети в зоне действия Wi-Fi нескольких пользователей с различных устройств – телефонов, компьютеров, ноутбуков и т.п.Низкий уровень излучения Wi-Fi-устройствами в момент передачи данных (в 10 раз меньше, чем у мобильного телефона)
var
a: array [1..10] of integer; //Массив из 10 целых элементов
max, i: integer; //max - максимальный элемент
begin
max:= 0; {Присваиваем max минимальное значение, которое он может принять}
write('Исходный массив: '); {Заполняем исходный массив, печатаем его и находим максимальный элемент}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max); //Печатаем исходный элемент
end.
Если все правильно, отметь решение как лучшее)
Нажми, чтобы рассказать другим, насколько ответ полезен
Подробнее - на -
Rn : String[36] = '0123456789';
Function DecToN(a : Longint; Raz : Byte) : String;
Begin
If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1]
else DecToN:=Rn[a+1];
end;
Function NToDec(a : String; Raz : Byte) : Longint;
Begin
If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz)
else NToDec:=0;
end;
Var a,b : String;
Begin
a:='1011'; b:='110';
Writeln('a = ',a,' (bin) = ',NToDec(a,2),' (dec)');
Writeln('b = ',b,' (bin) = ',NToDec(b,2),' (dec)');
Writeln(a+'+'+b+' = ',DecToN(NToDec(a,2)+NToDec(b,2),2),' (bin) ',NToDec(a,2)+NToDec(b,2),' (dec)');
Writeln(a+'-'+b+' = ',DecToN(NToDec(a,2)-NToDec(b,2),2),' (bin) ',NToDec(a,2)-NToDec(b,2),' (dec)');
Writeln(a+'*'+b+' = ',DecToN(NToDec(a,2)*NToDec(b,2),2),' (bin) ',NToDec(a,2)*NToDec(b,2),' (dec)');
end.