Задание 5. В системе программирования Pascal ABC вы- полните проверяемое задание р4 для исполнителя Робот
(закрасить помеченные клетки с использованием проце-
дуры Square2) (рис. 3.40).​

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 Радиовещательные компании ведут трансляцию по коаксиальному кабелю, поскольку в большинстве случает не требуется высокая скорость для передачи звука, но в то же время требуется помехозащищенность, но в зависимости от расположения передающего центра и абонентов, могут быть использованы любые трансляции за исключением телефонной линии.