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

Question

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

Comments

Я могу написать на питоне если надо

---

Ну так ему никто не пишет на паскале

---

Та не, паскаль убог и это факт

---

Не, ну если очень нравится писать в два раза больше текста громоздкого, то флаг вам в руки

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