Помогите написать программу в Паскале. С одномерным массивом, состоящим из n вещественных элементов, произвести следующие операции: 1) найти количество положительных элементов массива; 2 найти количество элементов массива, меньших определенного числа, вводимого пользователем; 3) вычислить сумму элементов массива, расположенных после последнего элемента, равного нулю;
Answers & Comments
// 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.