В одномерном массиве X(10) из положительных и отрицательных чисел найти: Количество...

Question

В одномерном массиве X(10) из положительных и отрицательных чисел найти: Количество отрицательных элементов в первой половине половине массива, поставить найденное значение на место первого элемента? помогите пожалуйста по паскалю

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

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

begin

 var x := ArrRandom(10, -50, 50);

 x.Println;

 x[0] := x.Take(5).Where(t -> t < 0).Count;

 x.Println

end.

---