Ввести одно число, указывающие количество вводимых двузначных чисел. Из введенных двузначных чисел найти количество четных.

Var n, a, i, nn:integer;

begin

write ('Количество двузначных чисел: ') ;

readln (n) ;

for i:=1 to n do begin

repeat

write ('Введите ', i,' число') ; readln (a) ;

until (a>9) and (a<100) ;

if a mod 2 = 0 then nn:=nn+1;

end;

writeln ('Количество четных двухзначных = ', nn) ;

end.

Тестовое решение:

Введите 1 число1

Введите 1 число23

Введите 2 число44

Введите 3 число3

Введите 3 число32

Введите 4 число45

Введите 5 число56

Количество четных двухзначных = 3