Question

написать программу в Паскале. С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти количество положительных элементов массива; 2 найти количество элементов массива, меньших определенного числа, вводимого пользователем; 3) вычислить сумму элементов массива, расположенных после последнего элемента, равного нулю;

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ReadArrReal('Вводите:', n);

 a.Count(p -> p > 0).Println;

 var b := ReadReal('Введите число:');

 a.Count(p -> p < b).Println;

 var i := a.LastIndexOf(0.0);

 if i > -1 then

   a?[i:].Sum.Print

 else

   Print(0)

end.