Найти минимальный элемент среди отрицательных чисел и максимальный элемент среди...

Question

Найти минимальный элемент среди отрицательных чисел и максимальный элемент среди неотрицательных.

Answer 1

//PascalABC.Net 3.2 сборка 1318

begin
  var ar:=ReadArrInteger(ReadInteger());
  writeln('Min=',ar.Where(x -> x<0).Min);<br>  writeln('Max=',ar.Where(x -> x>=0).Max);
end.