Призначеня структури інтернету:

Несмотря на то, что в данный момент выгоды от применения автоматизации в промышленности неоспоримы, остаются также проблемы при разработке ряда технологических решений, которые невозможно осуществить традиционными компонентами. Проблема внедрения сетевого оборудования в систему автоматизации производства Основной проблемой при работе по автоматизации производств является проблема внедрения тех или иных проектов, дальнейшая отладка процессов, контроль выполнения поставленных задач. Эффективное использование системы требует соответствующей организации, наличия связей между множеством элементов. Промышленное сетевое оборудование является связующим звеном между датчиками, контроллерами управления и исполнительными механизмами. Для обеспечения работо системы, нормального взаимодействия необходимо единство стандартов взаимодействия. Недостатками такого вида устройства является аварийная работо сети в результате обрыва связующих магистралей. Для предотвращения таких ситуаций применяют дублирующие каналы связи, топологию типа «кольцо». Узкая специализация элементов автоматизированной системы требует узкоспециализированных решений, удовлетворяющих потребности рабочих устройств. Малейшее изменение качества сырья, которое не было обработано и подвергнуто проверке поставить под вопрос качество готовой продукции. Например, такие устройства как гигростаты () применяются в качестве регуляторов относительной влажности сырья в пищевой промышленности, машиностроении, химической и нефтеперерабатывающей промышленности, где изменение показателя влажности также привести к выходу из строя неИнфостем. Проблема автоматизации промышленных процессов Сборочные работы в отдельных отраслях могут достигать показателя в 20–50% от общего количества потраченной энергии, что приводит к потребности не только автоматизировать отдельные участки труда, но и обеспечить связью разные технологические процессы и функциональные блоки. Производственные линии могут достигать нескольких километров в длину, что существенно затрудняет поддержание постоянно темпа сборки или обработки. Промышленное сетевое оборудование () делает возможной механизацию серийного производства на уровне 55%. Благодаря этому показателю достигается массовость. Однако не всегда существует возможность полной автоматизации, порой уровень максимально допустимой автоматизации может достигать всего лишь 5%, и связано это может быть с технологией производства, высокими потенциальными затратами на процессы. Постоянно растущий спрос на технические решения по автоматизации промышленности приводит к разработке новых технологий, увеличению сложности моделей и систем в сфере промышленного производства. Наряду с этим, дефицит квалифицированных кадров может привести к срыву работ, увеличению стоимости запланированных работ, увеличению сроков по реализации поставленных целей. Всё чаще контроллеры, адаптеры, гигростаты, сенсоры требуют высокой квалификации обслуживающего персонала. Единственным радикальным решением данной проблемы может стать расширение функциональности и автономности систем промышленной автоматизации. Переход к комплексным решениям смог бы обеспечить узкую специализацию устройств с одной стороны и их поточный контроль с друго

1. Современный вариант (так можно писать):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
  var n:=10;
  var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
  var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
  var x:=a.Zip(b,(p,q)->p*q); Print('X:'); x.Println;
  Writeln('min(X)=',x.Min)
end.

Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250

2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):

// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
  n=10;
var
  a,b,x:array[1..n] of integer;
  i,min:integer;
begin
  Randomize;
  Write('A: ');
  for i:=1 to n do begin
    a[i]:=Random(99)+1; Write(a[i],' ')
    end;
  Writeln;
  Write('B: ');
  for i:=1 to n do begin
    b[i]:=Random(99)+1; Write(b[i],' ')
    end;
  Writeln;
  Write('X: ');
  min:=100*100; // больше максимального
  for i:=1 to n do begin
    x[i]:=a[i]*b[i]; Write(x[i],' ');
    if min>x[i] then min:=x[i]
    end;
  Writeln;
  Writeln('min(X)=',min)
end.

Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513