Question

Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех положительных элементов.

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.

Пример
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31

Answer 2

Я попробую помочь вам с вашим заданием по программированию. Вот один из возможных способов решить его на языке Python:

# Импортируем модуль random для генерации случайных чисел
import random

# Создаем пустой список для хранения элементов массива
array = []

# Задаем интервал, в котором будут генерироваться случайные числа
min_value = -10
max_value = 10

# Задаем количество элементов в массиве
array_size = 10

# Используем цикл for для заполнения массива случайными числами
for i in range(array_size):
    # Генерируем случайное число в заданном интервале
    random_number = random.randint(min_value, max_value)
    # Добавляем сгенерированное число в конец списка
    array.append(random_number)

# Выводим массив на экран
print("Массив:", array)

# Создаем переменную для хранения суммы положительных элементов
positive_sum = 0

# Используем цикл for для перебора элементов массива
for element in array:
    # Проверяем, является ли элемент положительным
    if element > 0:
        # Прибавляем элемент к сумме
        positive_sum += element

# Выводим сумму положительных элементов на экран
print("Сумма положительных элементов:", positive_sum)

Надеюсь, это было полезно для вас.