Задан одномерный массив A[N] (1≤N≤99, a <1000). Найдите количество
всех двузначных чисел в этом массиве.
No
1
Пример
8
485 14 586 2 540 58 27 896
3

Ответ:

var

 N, i, count: integer;

 A: array[1..99] of integer;

begin

 // считываем размер массива

 readln(N);

 // считываем элементы массива

 for i := 1 to N do

   readln(A[i]);

 // инициализируем счетчик

 count := 0;

 // перебираем все элементы массива

 for i := 1 to N do

   // проверяем, является ли элемент двузначным числом

   if (A[i] >= 10) and (A[i] <= 99) then

     // увеличиваем счетчик на единицу

     count := count + 1;

 // выводим результат

 writeln(count);

end.