1. как называются сети, перекрывающие территорию не более 10 м2?
2. как называются сети, расположенные на территории города или области?
3. как называются сети, расположенные на территории государства или группы государств?
4. какой тип среды применяется в компьютерных сетях?
5. какую топологию используют компьютерные сети?
6. как делятся по признаку скорости компьютерные сети?
7. основные технологии лкс.
8. назовите основные протоколы доступа.
9. дайте характеристику лкс типа тонкий ethernet.
10. дайте характеристику лкс типа толстый ethernet.
11. как называются заглушки, которые устанавливаются на концах шины?
12. с чего пк подключается к шине?
13. с чего удлиняется кабельный сегмент шины?
14. какую топологию имеет лкс типа ethernet на витой паре?
15. как называется устройство, являющееся основным узлом на витой паре?
16. какую топологию имеет атм?
17. с чего в сети атм осуществляется коммутация?
18. укажите типы пакетов, применяемых в атм.
19. укажите тип протокола в сети internet.
20. как называется локальная сеть, входящая в состав ?
21. укажите адресации в internet.
22. какому номеру аналогичен ip-адрес?
23. сколько групп десятичных цифр содержит ip-адрес?
24. перечислите российские сети протокола х.25.

Var
  arr: array[1..27] of integer;
  summ: integer;
begin
  Randomize;
  for var i := 1 to 27 do
  begin
    arr[i] := random(-5, 5);
    summ := summ + arr[i];
  end;
  writeln('Массив: ',arr);
  writeln('Сумма всех элементов массива = ',summ);
  for var i := 1 to 27 do if arr[i] = 0 then arr[i] := summ;
  writeln('Массив: ',arr);
end.

пример работы:
Массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]
Сумма всех элементов массива = 14
Массив: [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]

var
  arr: array of integer;
  n,k,m: integer;
begin
  write('Введи n: ');
  readln(n);
  Randomize;
  arr:= new integer[n];
  for var i := 0 to n-1 do arr[i] := random(-5, 5);
  writeln('Массив: ',arr);
  for var i := 0 to n-1 do
  begin
    if arr[i]<0 then inc(k);
    if (i>=1) and (i<=6) then inc(m);
    if (i>=6) and (arr[i]>=0) then arr[i]:=1;
  end;
  writeln('Количество отрицательных элементов массива = ',k);
  writeln('Количество элементов массива в интервале [2..7] = ',m);
  writeln('Массив: ',arr);
end.

Пример работы:
Введи n: 5
Массив: [0,1,-4,1,3]
Количество отрицательных элементов массива = 1
Количество элементов массива в интервале [2..7] = 4
Массив: [0,1,-4,1,3]

Введи n: 15
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3]
Количество отрицательных элементов массива = 5
Количество элементов массива в интервале [2..7] = 6
Массив: [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]

1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.