Question

Вывести на экран 20 элементов массива, их сумму и номера элементов значения которых меньше 0

Answer 1

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию
begin
    var a := ArrRandomInteger(20, -50, 50);
    Println(a);
    PrintLn('S = ', a.Sum);
    PrintLn('(x<0) = ', a.IndexesOf(x -> x < 0));
end.

Answer 2

Для решения задачи, мы можем создать массив, заполнить его случайными значениями, вывести на экран 20 элементов, посчитать сумму всех элементов и найти номера элементов, значение которых меньше 0. Вот пример кода на языке Python:

pythonCopy code
import random

# Создание массива и заполнение случайными значениями
array = [random.randint(-100, 100) for _ in range(20)]

# Вывод на экран 20 элементов массива
print("Элементы массива:")
print(array)

# Вычисление суммы всех элементов
sum_of_elements = sum(array)
print("Сумма элементов массива:", sum_of_elements)

# Нахождение номеров элементов со значениями меньше 0
negative_indexes = [index for index, element in enumerate(array) if element < 0]
print("Номера элементов со значениями меньше 0:", negative_indexes)

Пример вывода:

lessCopy code
Элементы массива:
[10, -20, 5, 8, -15, 7, -30, -50, 25, -10, 40, 70, -80, 90, 100, 0, 15, 60, -5, -25]
Сумма элементов массива: 75
Номера элементов со значениями меньше 0: [1, 4, 6, 7, 9, 12, 18, 19]

Обратите внимание, что значения массива генерируются случайным образом, поэтому результаты каждый раз будут разными.