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. телефонная линия, поскольку работает на низкой частоте, радиоволны (wi-fi, спутниковая связь) плохо проникают в землю. коаксиальный кабель, витая пара, оптоволоконная линия - экономически нецелесообразны для передачи небольших объемов данных (речь, звук) 2. Для локальной сети подойдет витая пара, как наиболее экономически целесообразная в локальной сети, коаксиальный кабель считает устаревшим, с узкой полосой пропускания, wi-fi может быть использован, если площадь здания небольшая, а коэффициент поглощения радиоволн стенами минимален. 3. В обсерватории подойдет спутниковый канал связи, поскольку тарелку на спутник возможно настроить, но для относительно медленных соединения может быть использован радиоканал. 4. поскольку завод секретный, использовать радиоканалы не безопасно. Подойдет оптоволоконная линия и витая пара, имеющие наиболее высокую пропускную 5 Радиовещательные компании ведут трансляцию по коаксиальному кабелю, поскольку в большинстве случает не требуется высокая скорость для передачи звука, но в то же время требуется помехозащищенность, но в зависимости от расположения передающего центра и абонентов, могут быть использованы любые трансляции за исключением телефонной линии.
k 1010+101
^^^///^^/$456