Question

Создать массив а из десяти целых чисел, принадлежащих промежутку [-10; 15]. Вывести полученный массив на экран. Подсчитать k — количество элементов массива, значение которых меньше 7.

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, -10, 15);

 a.Println;

 var k := a.Count(p -> p < 7);

 k.Println

end.

Answer 2

Конечно! Вот пример кода на языке Python, который создаст массив из десяти целых чисел, принадлежащих промежутку [-10; 15], выведет его на экран и подсчитает количество элементов массива, значения которых меньше 7:

pythonCopy code
import random

# Создание массива
a = [random.randint(-10, 15) for _ in range(10)]

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

# Подсчет количества элементов, меньших 7
count = 0
for num in a:
    if num < 7:
        count += 1

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

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

yamlCopy code
Массив a: [5, 12, -9, 6, 8, -3, 15, 0, -7, 4]
Количество элементов массива, меньших 7: 7

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