Question

Дан массив d размером 5 элементов. элементы случайные числа от -10 до 10. а)найти произведение элементов массива б)найти наибольший элемент массива в) выполнить сортировку массива по убыванию

Answer 1

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

begin

 var D := ArrRandom(5, -10, 10);

 D.Println.Product.Println; // произведение

 Println('max =', D.Max); // максимум

 D.SortedDescending.Println // сортировка

end.