Павлин
4 год назад
Найти минимальный элемент среди отрицательных чисел и максимальный элемент среди неотрицательных.
ОТВЕТЫ
Vencislav
Oct 24, 2020
//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.
begin
var ar:=ReadArrInteger(ReadInteger());
writeln('Min=',ar.Where(x -> x<0).Min);
writeln('Max=',ar.Where(x -> x>=0).Max);
end.
144
Смежные вопросы:
