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

Ответы

Асечка05 15.10.2020 15:08

// 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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Adam123RUS 10.09.2021 01:37

Решить , двоично-десятичная система счисления...

NoName69vv 10.09.2021 01:34

Kiosshi 25.07.2019 03:30

Андрейydarnik 09.02.2021 20:57

Составить блок схем и решить...

Gulshatkadilshina 09.02.2021 20:57

IvanRusYT 20.06.2019 20:30

Мадинакадырова06 20.06.2019 20:30

klokova049otccwt 20.06.2019 20:30

Слово ножка к какому правилу относится...

leon7771 20.06.2019 20:30

лиза2677 20.06.2019 20:30