Дан линейный массив A[1..N], содержащий целые числа. Найти длину наименьшего отрезка числовой прямой, содержащего все положительные элементы массива. Pascal

Дан линейный массив A[1..N], содержащий целые числа. Найти длину наименьшего отрезка числовой прямой, содержащего все положительные элементы массива. Pascal
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(ReadInteger('n='),-20,99); a.Println;   var s:=a.Where(x->x>0);   Writeln('Длина отрезка равна ',s.Max-s.Min) end. Пример n= 15 83 26 56 73 47 21 -8 91 72 7 60 12 25 36 62 Длина отрезка равна 84
Не нашли ответ?
Ответить на вопрос
Похожие вопросы