Заданы массивы a[1..n] и b[1..m] найти максимальный элемент массива a и проверить, есть ли такой элемент среди элементов массива b.если есть, указать его номер, иначе выдать "нет равных элементов" паскаль

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,50); a.Println;
  var b:=ArrRandom(ReadInteger('m='),1,50); b.Println;
  var p:=b.FindIndex(x->x=a.Max)+1;
  if p>0 then Writeln('Искомый элемент равен ',p)
  else Writeln('Элемент не найден')
end.

Пример
n= 10
37 50 6 5 5 8 5 37 26 31
m= 15
25 31 28 44 16 30 29 3 40 24 50 12 12 32 5
Искомый элемент равен 11

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

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

Ошибка CE-34878-0 является типичной ошибкой, означающей, что работа запущенной в данной момент игры была экстренно завершена. Если Вы получаете данную ошибку, тогда Вам нужно будет перезагрузить игру. В случае, если Вы продолжаете получать данное сообщение, тогда вполне возможно, что есть затруднения в работе самой консоли.

Для начала попробуйте выполнить основные шаги по устранению затруднения, представленные в статье ПО ССЫЛКЕ. Если выполнение предоставленных инструкций не позволить решить ситуацию, Вы также можете попробовать ДОПОЛНИТЕЛЬНЫЕ РЕКОМЕНДАЦИИ, предоставленные на официальном сайте Sony. Однако обратите внимание, что шаг 3 (инициализация PS4) удалит все данные с Вашей консоли не выполняйте данный шаг без предварительного создания резервной копии информации.  

Если ошибка по-прежнему сохраняется, мы рекомендуем обратиться в ПОДДЕРЖКУ PLAYSTATION напрямую. Специалисты поддержки обладают подробной информацией об ошибках, специфичных для PS4, в частности CE-34878-0. Вы также можете сообщить НАМ о возникающих затруднениях.  

Объяснение: