Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ



begin
  var s:=ArrRandom(ReadInteger('n='),-20,99).Println.Where(x->x>0).OrderBy(x->x);
  Writeln('Длина отрезка равна ',s.Last-s.First)
end.
374
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам