Для 1)линиисвязи 2) 3)сетевое программное обеспечение 1.правадоступа 2.провайдеры 3.сетевыеустройства 4.серверыи клиенты 5.администраторы

сетевые устройства наверное, если по минимуму

сетевые устройства

сетевое по

линии связи

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',55); a.println;   var max: =a.where(t-> t.iseven).max;   var imax: =a.indexesof(t-> t=max).firstordefault;   writeln('1: a[',imax+1,']=',max);   writeln('2: ',a.where(t-> t mod 3=0).sum);   writeln('3: ',a.where(t-> t< 0).count); end. пример n= 20 -4 45 4 -5 38 1 42 52 53 17 42 22 3 11 28 5 14 28 35 22 1: a[8]=52 2: 132 3: 2

Pascalвыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 program lab_10_41; type phone=record nomer: integer; day: integer; mesyac: integer; god: integer; chas: integer; minuta: integer; kod: integer; othernomer: integer; time: integer; categoriya: integer; tarif: real; end; var a: array [1..20] of phone; m,max,k,i,n: integer; b: string; begin writeln('введите количество разговоров: '); readln(n); for i: = 1 to n do begin a[i].nomer: =111111+random(888888); a[i].day: =1+random(30); a[i].mesyac: =1+random(11); a[i].god: =2000+random(12);