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.