Дан массив R1...R20. Найти номер первого и последнего отрицательных частей

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var R := ArrRandom(20, -50, 50);

 R.Println;

 var i := R.IndexesOf(t -gt; t lt; 0);

 Println(i.First + 1, i.Last + 1);

 Println('Сумма одинакова', R[i.First] + R[i.Last])

end.

Пример

-9 41 -47 -25 22 -35 44 -2 -10 17 -17 -17 5 20 47 -43 3 -45 1 33

1 18

Сумма одинакова -54