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

Question

Дан массив R1...R20. О пределить номер первого и последнего отрицательных элементов . Вычислить сумму этих элементов В Паскале

Answer 1

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

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

begin

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

 R.Println;

 var i := R.IndexesOf(t -> t < 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