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

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