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

Question

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

Answer 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).Println<br>end.

Пример
n= 13
50 -39 13 -36 3 -43 6 21 -18 -25 48 31 -19
-18 -25 -19