Переведите в кумир const n = 20;
var
a, b: array[1..n] of integer;
i, count: integer;
begin
for i := 1 to n do begin
a[i] := 1 + random(5);
b[i] := 1 + random(5);
if(a[i] = b[i]) then begin
writeln('Номер: ', i, ' Значение: ', a[i]);
inc(count);
end;
end;
if(count = 0) then writeln('Совпадений нет');
end.

Да́тчик, сенсор — конструктивно обособленное устройство, содержащее один или несколько первичных измерительных преобразователей. Датчик предназначен для выработки сигнала измерительной информации в форме, удобной для передачи, дальнейшего преобразования, обработки и (или) хранения, но не поддающейся непосредственному восприятию наблюдателем.

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

В настоящее время термины «датчик» и «сенсор» используются как равнозначные для обозначения измерительного преобразователя, выполняющего функции восприятия входной величины и формирования измерительного сигнала, хотя термин «сенсор» акцентирует внимание на восприятии входной величины, а термин «датчик» — на формировании и выдаче измерительного сигнала (данных).

Многофункциональные датчики могут воспринимать и преобразовывать нескольких входных величин, и, помимо основной функции (восприятие величины и формирование измерительного сигнала) выполнять ряд дополнительных функций, таких как функции фильтрации, обработки сигналов и т.п.

Датчики широко используются в научных исследованиях, испытаниях, контроле качества, телеметрии, системах автоматизированного управления и в других областях деятельности и системах, где требуется получение измерительной информации.

Объяснение:

чел ты не дал картинку иза этого я просто напишу что такое датчик

Var
  i,d,dmin,dmax,kmax,imin,imax:integer;
  n:longint;
begin
  Write('Введите натуральное число N: '); Read(n);
  dmin:=10; dmax:=-1; {больше большего и меньше меньшего}
  i:=0;
  repeat
    d:=n mod 10; n:=n div 10; Inc(i);
    if dmax<d then begin dmax:=d; kmax:=1; imax:=i end
    else if dmax=d then Inc(kmax);
    if dmin>d then begin dmin:=d; imin:=i end
  until n=0;
  Writeln('Минимальная цифра - ',dmin,' находится в разряде ',imin,';');
  Writeln('Максимальная цифра - ',dmax,' находится в разряде ',imax,';');
  Writeln('Сумма максимальной и минимальной цифры - ',dmin+dmax,';');
  Writeln('Максимальная цифра встречается ',kmax,' раз(а);');
  Write('Минимальная цифра - ');
  if (dmin mod 2)=0 then Writeln('четная.')
  else Writeln('нечетная.')
end.

Тестовое решение:
Введите натуральное число N: 388456
Минимальная цифра - 3 находится в разряде 6;
Максимальная цифра - 8 находится в разряде 4;
Сумма максимальной и минимальной цифры - 11;
Максимальная цифра встречается 2 раз(а);
Минимальная цифра - нечетная.