1. Сформировать массив D состоящий из 18 элементов и заполнить его случайными целыми числами в диапазоне [-50, 50] 2. Полученный массив распечатать
3. Найти сумму элементов массива
4. В массиве найти максимальный элемент и его порядковый номер
5. Отсортировать массив по возрастанию
6. Распечатать полученный массив
Программа на языке PascalABC.NET:
var D: array of integer:= ArrRandom(18,-50,50);
begin
D.Println;
D.Sum.Println;
D.IndexMax.Println;
D.Sorted.Println;
end.
Задание выполнено!