Question

HELPP!!! В массиве А[1..6] найти сумму положительных элементов массива, которые находятся в диапазоне от -1 до 5 включительно.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(6, -1, 5);

 a.Println;

 Writeln('Сумма положительных значений равна ',

     a.Where(t -> t > 0).Sum)

end.

Пример

2 5 1 0 -1 3

Сумма положительных значений равна 11

Answer 2

Привет! Я могу помочь с этой задачей на языке программирования. Вот пример кода на языке Python:

pythonCopy code
# заданный массив
A = [3, 2, 7, -2, 0, 4]

# инициализация суммы
sum = 0

# проход по массиву и проверка на соответствие условию
for i in range(len(A)):
    if A[i] >= 0 and A[i] >= -1 and A[i] <= 5:
        sum += A[i]

# вывод результата
print("Сумма положительных элементов массива A, которые находятся в диапазоне от -1 до 5 включительно, равна:", sum)

В этом коде мы инициализируем переменную sum нулем, затем проходим по всем элементам массива A. Если элемент массива является положительным числом и находится в диапазоне от -1 до 5 включительно, мы добавляем его значение к переменной sum. В конце мы выводим значение sum в консоль.

В результате, при запуске кода, программа должна вывести сумму всех положительных элементов массива A, которые находятся в диапазоне от -1 до 5 включительно.