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



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

[email protected] в категроии Информатика, вопрос открыт 03.04.2017 в 19:45

1 ответ



[email protected] , ответ добавлен 03.04.2017 в 20:14

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

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

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.