Дан линейный массив A[1..N], содержащий целые числа. Найти длину наименьшего отрезка числовой прямой, содержащего все положительные элементы массива. Pascal
Ответы на вопрос
Ответил Аноним
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Ответил Аноним
0
Это называется "мир не без убогих". То, что в мозг не укладывается, почитается за неверное. А зря.
Новые вопросы