Question

1. Сформировать массив D состоящий из 18 элементов и заполнить его случайными целыми числами в диапазоне [-50, 50]
2. Полученный массив распечатать
3. Найти сумму элементов массива
4. В массиве найти максимальный элемент и его порядковый номер
5. Отсортировать массив по возрастанию
6. Распечатать полученный массив

Answer 1

Программа на языке PascalABC.NET:

var D: array of integer:= ArrRandom(18,-50,50);

begin

   D.Println;

   D.Sum.Println;

   D.IndexMax.Println;

   D.Sorted.Println;

end.

Задание выполнено!