Пж на паскале

Question

Пж на паскале

100 Сундуков Ученик (89), открыт 4 недели назад

Напишите программу, которая в последовательности натуральных чисел определяет количество чётных трёхзначных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа

Количество чисел не превышает 1000. Введеные числа не превышают 30000.

Программа должна вывести одно число- количество чётных трёхзначных чисел

Answer 1

program even_numbers;
var
n, num, count: integer;
begin
count := 0;
readln(n);
for var i := 1 to n do
begin
readln(num);
if (num >= 100) and (num <= 999) and (num mod 2 = 0) then
count := count + 1;
end;
writeln(count);
end.