Question

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

Answer 1

// 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