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

Question

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

Comments

Уточните версию Паскаля, пожалуйста)) Turbo? Free? ABC? Lazarus? Delphi? ABC.net?

---

ABC

---

.net

---

Для ABC.net Вам ответ уже дали

---

Не правильный

---

И в чём же там ошибка? Всё-таки, профф. программист ответ дал

---

Понятно, что в школе такое не проходили. Но тогда надо указывать в задании, PascalABC. Без NET, в net вот такие записи возможны. И прога будет работать, и это не нарушение

Answer 1

Const
K = 13;
Var
A:array[1..K] of integer;
i,Mn,Mx:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ')
    End;
WriteLn;

Mn:=A[K];
Mx:=A[K];
For i:= 1 to K-1 do
    Begin
    if (A[i]0) then Mn:=A[i];
    if (A[i]>Mx)and(A[i]>0) then Mx:=A[i];
    End;
WriteLn('Искомая длина: ',Mx-Mn);
End.

Answer 2

// 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.

Comments

Хочется задать два вопроса: 1 почему не в одну строчку?)) 2 Как эта задача вообще решается?))

---

Всё ясно, благодарю! ))