Question

Написать программу: В массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу. ​

Answer 1

var

   numbers: Array[1..10] of Integer;

   i, first, last, count, num: Integer;

begin

   writeln('Введите 10 чисел');

   

   for i := 1 to 10 do

       readln(numbers[i]);

   first := numbers[1];

   last := numbers[10];

   

   for i := 1 to 10 do begin

       num := numbers[i];

       

       if (num >= first) and (num mod first = 0) then

           if (num < last) or (num mod last <> 0) then

               count := count + 1;

   end;

   

   writeln(count);

end.

Answer 2

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

pythonCopy code
def count_multiples(arr):
    first_element = arr[0]
    last_element = arr[-1]
    count = 0

    for num in arr:
        if num % first_element == 0 and num % last_element != 0:
            count += 1

    return count

def main():
    try:
        # Инициализируем пустой список
        numbers = []

        # Вводим 10 чисел с клавиатуры
        for i in range(10):
            num = int(input(f"Введите число {i+1}: "))
            numbers.append(num)

        # Вызываем функцию для подсчета чисел, удовлетворяющих условиям
        result = count_multiples(numbers)

        # Выводим результат
        print(f"Количество чисел кратных первому элементу, но не кратных последнему: {result}")

    except ValueError:
        print("Ошибка: введите только целые числа.")

if __name__ == "__main__":
    main()

Программа позволяет ввести 10 чисел с клавиатуры, а затем подсчитывает количество чисел в массиве, которые кратны первому элементу, но не кратны последнему.