Описать структуру с именем student, содержащую следующие поля -фамилия и инициалы; -номер группы (класса); -успеваемость (массив из пяти элементов

Type student=record         familia: string;         nomer: byte;         yspevaemosti: array[1..5] of integer; end;

Обычно схема wi-fi сети содержит не менее одной точки доступа  и не менее одного клиента. также возможно подключение двух клиентов в режиме  точка-точка, когда точка доступа не используется, а клиенты соединяются посредством  сетевых адаптеров  «напрямую». точка доступа передаёт свой идентификатор сети  с специальных сигнальных пакетов на скорости 0,1 мбит/с каждые 100 мс. поэтому 0,1 мбит/с  — наименьшая  скорость передачи данных  для wi-fi. зная ssid сети, клиент может выяснить, возможно ли подключение к данной точке доступа. при попадании в зону действия двух точек доступа с идентичными ssid приёмник может выбирать между ними на основании данных об уровне сигнала. стандарт wi-fi даёт клиенту полную свободу при выборе критериев для  соединения. более подробно принцип работы описан в официальном тексте стандарта. по способу объединения точек доступа в единую систему можно выделить: автономные точки доступа (называются также самостоятельные, децентрализованные, умные)точки доступа, работающие под контроллера (называются также «легковесные», централизованные)бесконтроллерные, но не автономные ( без контроллера)по способу организации и радиоканалами можно выделить беспроводные локальные сети: со статическими настройками радиоканаловс динамическими (адаптивными) настройками радиоканаловсо «слоистой» или многослойной структурой радиоканалов

1) var i: integer; begin randomize; i: =random(11); writeln('vipalo chislo: ',i) ; if (i = 7) then writeln('pobeda! ') else writeln('pobrobyite eshe! '); end.2)vari_1,i_2,i_3: integer; beginrandomize; i_1: =random(11); i_2: =random(11); i_3: =random(11); writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3); if (i_1 = i_2)and(i_2 = i_3) then writeln('winer! ') else writeln('sorry,try again! ')end.3)  var   i, k, z: integer; begin    randomize;   k : = 0;   for i : = 1 to 10 do      begin      z : = random(101);     write(' ', z);       if odd(z) then k : = k + 1;     end;     writeln;     writeln('kolichestvo chetnysh: ', k);     end.