Регистрация
SemenBio
13.02.2020 16:57
Информатика
Есть ответ 👍

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

231
311
Посмотреть ответы 2

Ответы на вопрос:

Jeka5A
Jeka5A
4,7(5 оценок)

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

gfsggstgf
gfsggstgf
4,6(42 оценок)

Объяснение:

В настройках (это на андроид)


Де тепер зберігаються файли з телеграму?? на андроїді

Популярно: Информатика