заданы массивы 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.
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
