Question

Заполните одномерный массив случайными числами найдите и вывести на экран наибольшее его элементы и порядковый номер этого элемента

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var i := a.IndexMin;

 Println('Минимальный элемент', a[i], 'имеет номер', i + 1)

end.