Question

Составить программу которая в заданном массиве 20 элементов определяет сколько элементов меньше числа "a"

Answer 1

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var m:=ArrRandom(20,-99,99); m.Println;
  var a:=ReadInteger('Введите число "a":');
  Writeln('Число элементов, меньших ',a,' = ',m.Where(t->t<a).Count)
end.

Answer 2

Конечно, вот пример программы на языке Python, которая решает вашу задачу. В этом примере массив случайным образом заполняется числами от 1 до 100, и программа определяет, сколько элементов в массиве меньше заданного числа a:

pythonCopy code
import random

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

# Задаем число a
a = int(input("Введите число a: "))

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

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

Программа сначала генерирует массив из 20 случайных чисел от 1 до 100. После этого пользователю предлагается ввести число a. Программа затем перебирает элементы массива и сравнивает их с числом a, увеличивая счетчик count, если элемент меньше a. Наконец, программа выводит исходный массив и количество элементов, которые меньше заданного числа a.