Как найти в Паскале нечётные числа среди введённых?

Вопрос школьника по предмету Информатика

Как найти в Паскале нечётные числа среди введённых?

Ответ учителя по предмету Информатика

Например так:

Var

A,N:integer;

Begin

WriteLn(‘Введите кол-во чисел’);

ReadLn(N);

WriteLn(‘Введите сами числа’);

For N:= 1 to N do

    Begin

    Read(A);

    if A mod 2 = 0 then WriteLn(A,’ чётное’)

    else WriteLn(A,’ нечётное’)

    End;

End.

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

Введите кол-во чисел

4

Введите сами числа

1 2 3 4

1 нечётное

2 чётное

3 нечётное

4 чётное

Вообще, чётность определяется по остатку деления на два: остаток равен нулю — значит число чётное, единице — нечётное.