Question

Напишите программу на PascalABC.net
В одномерном массиве, состоящем из n элементов, вычислить:
- сумму элементов массива, расположенных между первым и вторым
положительными элементами;
Преобразовать массив таким образом, чтобы элементы, равные нулю,
располагались после всех остальных.

Answer 1

##

var n := ReadInteger;

var a := ArrRandom(n, -9, 9);

a.Println;

var v := a.Indices(t -> t > 0).ToArray;

a[v[0] + 1:v[1]].Sum.Println; // сумма

a := (a.Where(t -> t <> 0) + a.Where(t -> t = 0)).ToArray;

a.Print