Заданы массивы a[1..n] и b[1..m] найти максимальный элемент массива a и проверить,есть ли такой элемент среди элементов массива b.Если есть,указать его номер,иначе выдать "нет равных элементов" паскаль плиз))))
Заданы массивы 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
Не нашли ответ?
Похожие вопросы