Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ArrRandom(ReadInteger('n='),-20,99).Println.Where(x->x>0).OrderBy(x->x);
  Writeln('Длина отрезка равна ',s.Last-s.First)
end.

Answer 2

А решается, если через цикла, как всегда - разностью между максимумом и минимумом среди положительных элементов.