Найти минимальный элемент среди отрицательных чисел и максимальный элемент среди неотрицательных.
//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.