Question

Дан одномерный массив найдите максимальный и минимальный элемент и выведите на экран , на паскале

Answer 1

// PascalABC.NET 3.6

begin

 var n := ReadInteger('Укажи длину массива:');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Максимум:', a.Max);

 Println('Минимум:', a.Min)

end.

Answer 2

begin

 var n := ReadInteger('Укажи длину массива:');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Максимум:', a.Max);

 Println('Минимум:', a.Min)

end.