Question

Дан массив А (n) случайных чисел в диапазоне -100...100.максимпльный элемент массива поменять с последним элементом массива.вывести исходный и результатирующий массивы.

Answer 1

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

begin

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

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

 a.Println;

 Swap(a[a.IndexMax], a[a.High]);

 a.Println

end.