Question

Создать стек из случайных целых чисел и найти в нем максимальное и минимальное значение. (РЕШИТЬ В ПАСКАЛЕ)

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Сколько чисел сгенерировать?');

 var St := new Stack<integer>(SeqRandom(n, -99, 99));

 St.Println;

 Println('Max =', St.Max, '   min =', St.Min);

 // следующие строки не нужны, это просто проверка,

 // что стек после обработки не сломался.

 Writeln;

 St.Pop.Println;

 St.Println;

end.