Pascal
Найти максимальный и минимальный элементы одномерного массива из N вещественных чисел (< 50), сформированного случайным образом. Вывести на экран массив, сами элементы и их сумму в формате с фиксированной точкой.

                                     PascalABC.NET                                       beginvar a:= ArrRandomReal(ReadInteger('N='),0,50);Println(a);a.Println;Println('Сумма:',a.Sum);Println('Макс:',a.Max);Println('Мин:',a.Min);end.

Пояснение:

Если нужно найти не значение максимального элемента массива, а его номер (индекс), то можно заменить Max на IndexMax и соответственно Min на IndexMin.

Пример работы: