Поделитесь своими знаниями, ответьте на вопрос:
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.
Задание выполнено!