Какие датчики роботу в движении и почему?

Объяснение:

program ArrayOf2;

const

   ArraySize=10; {устанавливаем размер массива}

   MaxRandom=5; {максимальное случайное число для заполнения массива}

var

   x : array[1..ArraySize] of integer;

   i, Sum2 : integer;

begin

   Sum2:=0;

   for i:=1 to ArraySize do x[i]:=Random(MaxRandom); {в цикле заполняем массив случайными числами от 1 до заданной MaxRandom}

   for i:=1 to ArraySize do WriteLn(x[i]); {выводим на печать массив, который получился (в задании это не требовалось, можно убрать эту строку)}

   for i:=1 to ArraySize do if x[i]=2 then Sum2:=Sum2+1; {считаем двойки}

   if

       Sum2 > 0

   then

       Writeln('The quantity of 2 in this array is: ',Sum2)

   else

       WriteLn('No any 2 in this array was found')

end.