Question

Дан одномерный массив целых чисел. Найти сумму максимального и минимального элемента. Программа Паскаль. СРОЧНО ИНФОРМАТИКА!!! 40 баллов

Answer 1

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Сумма максимального и минимального равна', a.Min + a.Max)

end.