Question

составьте программу , которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и: подсчитывает количество отрицательных элементов;

Answer 1

Способ 1

PascalABC позволяет нам писать меньше, понятнее и красивее.

1. begin
2. var arr := SeqRandomInteger(16,  -20, 20).ToArray.Println.Where(x->x < 0).Count.Println;
3. end.

Способ 2

Старее этого только динозавры.

Answer 2

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

pythonCopy code
import random

def generate_random_array():
    return [random.randint(-20, 20) for _ in range(16)]

def count_negative_elements(arr):
    count = 0
    for num in arr:
        if num < 0:
            count += 1
    return count

if __name__ == "__main__":
    # Генерируем массив из случайных чисел
    random_array = generate_random_array()

    # Выводим сгенерированный массив
    print("Сгенерированный массив:", random_array)

    # Подсчитываем количество отрицательных элементов
    negative_count = count_negative_elements(random_array)

    # Выводим результат
    print("Количество отрицательных элементов:", negative_count)

Программа использует функцию generate_random_array() для создания массива из 16 случайных целых чисел в диапазоне от -20 до 20. Затем функция count_negative_elements() считает количество отрицательных элементов в этом массиве. Результат выводится на экран.

Пример вывода программы может выглядеть так:

lessCopy code
Сгенерированный массив: [5, -8, 13, 20, 17, 6, -19, -11, 10, -6, 12, -2, -13, -20, 18, 9]
Количество отрицательных элементов: 6