Question

Составьте программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных

Answer 1

Var a:array[1..10] of integer;

b,c,i:integer;

begin

 writeln('Write 10 numbers:');

 for i:=1 to 10 do

  read(a[i]);

 b:=0;

 c:=0;

 for i:=1 to 10 do

  if a[i] mod 2=0

   then b:=b+1

   else c:=c+1;

 writeln('Even numbers:',b); // Четных

 writeln('Odd numbers:',c);  // Нечетных

 readln

end.

Answer 2

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

# Создаем переменные для подсчета четных и нечетных чисел
even_count = 0
odd_count = 0

# Повторяем десять раз
for i in range(10):
    # Запрашиваем ввод целого числа от пользователя
    num = int(input("Введите целое число: "))
    # Проверяем, четное ли число или нечетное
    if num % 2 == 0:
        # Увеличиваем счетчик четных чисел на один
        even_count += 1
    else:
        # Увеличиваем счетчик нечетных чисел на один
        odd_count += 1

# Выводим результат на экран
print("Среди введенных чисел", even_count, "четных и", odd_count, "нечетных")

Надеюсь, это поможет вам. Если у вас есть другие вопросы, я рад помочь.