Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
begin
  var a:=ArrRandom(16,-20,20); a.Println;
  Writeln('Отрицательных элементов ',a.Where(x->x<0).Count)
end.

Пример
-7 -14 19 -9 -7 -5 19 18 -3 -14 10 -14 20 -17 2 2
Отрицательных элементов 9

Answer 2

Программа для формирования массива случайных чисел и подсчета отрицательных элементов

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

import random

# Формирование массива из 16 случайных целых чисел от -20 до 20
array = [random.randint(-20, 20) for _ in range(16)]

# Подсчет количества отрицательных элементов
negative_count = len([num for num in array if num < 0])

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

В этой программе мы используем модуль `random` для генерации случайных чисел. Функция `randint` генерирует случайное целое число в заданном диапазоне. Затем мы создаем массив из 16 случайных чисел, используя генератор списка. Далее мы используем генератор списка и условное выражение для подсчета количества отрицательных элементов в массиве. Наконец, мы выводим исходный массив и количество отрицательных элементов.

Примечание: Это всего лишь один из множества возможных способов решения данной задачи.