уровень оценивание проведите мини исследование оцените какая топология сетей дома в крупных супермаркетах и аэропорту

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. Открываем программу логомиры.

2. Во вкладке процедуры создадим новую программу, которую назовем дом

это дом
конец

3.  Нарисуем первый элемент нашего дома для этого в программе (между слова это дом иконец) напишем следующее.

по нц 9 нрп 1  (по - опускаем перо, нц 9 - задаём новый цвет, нрп - задаём новый размер пера)
повтори 4 [вп 100 пр 90]  (рисуем стены нашего дома, программа квадрата)

Посмотрим полученный результат. Для этого создадим черепашку, в поле команд напишем имя нашей программы дом, запустим её нажав клавишу Enter.

4. Далее рисуем крышу, для этого после команды квадрата пишем следующее.

вп 100 (передвигаем черепашку в левый верхний угол уже нарисованного квадрата)
пр 30 (нам известно что сумма внешних углов правильного многоугольника равна 360 градусов следовательно внешний угол правильного треугольника равен 120=360/3, поворот будет равен 30 градусам т.к. 120-90=30)
вп 100 (рисуем левую часть крыши)
пр 120 (поворачиваем черепашку на 120 градусов)
вп 100 (рисуем правую часть крыши)

Посмотрим полученный результат в поле команд напишем сг (стирание с экрана всей графики) дом (выполним программу дом).

5.  Нарисуем окно дома. Для этого следует перевести черепашку в центр дома.

пр 30 (повернём черепашку так чтобы её голова смотрела вниз)
вп 30 (передвинем её вниз на 30 шагов)
пр 90 (относительного её движения повернём её на 90 градусов)
пп (поднимем  перо чтобы черепашка не оставляла за собой след)
вп 30 (продвинем черепашку на 30 шагов)
по (чтобы нарисовать окно следует опустить перо)
повтори 4 [вп 40 лв 90]  (рисуем квадрат размером в 40 шагов)

Посмотрим полученный результат в поле команд напишем сг (стирание с экрана всей графики) дом (выполним программу дом).

6. осталось только дом разукрасить для этого выполним следующие команды.

пп (поднять перо чтобы черепашка не оставляла за собой след)
вп 10  лв 90 вп 10 (передвинемся во внутрь окна)
нц 91 крась (закрасим окно голубым цветом)
пр 180 вп 20 (передвинем черепаху на стену)
нц 41 крась (закрасим стену светло-кремовым цветом)
вп 40 (передвинем черепаху на крышу)
нц 18 крась (закрасим крышу красным цветом)

Посмотрим полученный результат в поле команд напишем сг (стирание с экрана всей графики) дом (выполним программу дом). Любуемся.