Question

Cоставить процедуру ввода элементов одномерного массива и вычисления количества элементов, равных К. (Не обязательно) Разработать программу где осуществляется вызов данной процедуры.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

procedure FillArr(var a: array of integer; n, k: integer);

begin

 a := ReadArrInteger(n);

 Println($'{a.Where(t -> t = k).Count} эл. равны k');

end;

begin

 var a: array of integer;

 var (n, k) := ReadInteger2('n,k->');

 FillArr(a, n, k);

end.

Answer 2

Конечно, вот пример простой процедуры на языке Python для ввода элементов в одномерный массив и вычисления количества элементов, равных определенному значению `K`:

def count_elements_equal_to_K(arr, K):
    count = 0
    for element in arr:
        if element == K:
            count += 1
    return count

def main():
    n = int(input("Введите размер массива: "))
    array = []

for i in range(n):
        element = int(input(f"Введите элемент {i + 1}: "))
        array.append(element)

K = int(input("Введите значение K для поиска: "))

result = count_elements_equal_to_K(array, K)
    print(f"Количество элементов, равных {K}, в массиве: {result}")

if __name__ == "__main__":
    main()

Эта программа предлагает пользователю ввести размер массива, затем элементы массива по одному, после чего вводится значение `K` для поиска. Программа вызывает функцию `count_elements_equal_to_K`, которая считает количество элементов в массиве, равных `K`, и выводит результат.

Такая процедура может быть вызвана внутри программы, как показано в функции `main()`, где пользователь взаимодействует с программой, вводя данные и получая результат.

Вы можете скопировать этот код в среду разработки Python и запустить его для проверки работы.