• Pascal.
    Дан одномерный массив. Определить сколько отрицательных элементов находится после последнего минимального элемента.

Ответы 1

  • // PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var imin:=a.LastIndexMin;  a?[imin+1:].Where(t->t<0).Printlnend.Примерn= 1350 -39 13 -36 3 -43 6 21 -18 -25 48 31 -19-18 -25 -19
    • Автор:

      georgia82
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years