Решение: Для определения количества нужных нам элементов проверим каждый элемент массива с помощью цикла for.
По заданию нам даны три переменные — i, j, t. Переменную i используем как счетчик цикла, переменную t — для подсчета количества элементов. Переменная j лишняя, её использовать не будем (это разрешено по условию). Кроме того, переменную t перед проверкой массива нужно обнулить.
Каждый повтор цикла будет проверятся, соответствует ли элемент массива с индексом i условию, если соответствует, то переменная t будет увеличиваться на 1.
Теперь составим условие. У нас должны подсчитываться элементы, которые 1. двузначные; 2. заканчиваются на 3. То есть:
1. Для проверки двузначности условие будет выглядеть как
(a[i]>=10) and (a[i]<=99).
2. Если число заканчивается на 3, значит остаток от деления на 10 этого числа равен трем. То есть условие будет таким:
(a[i] mod 10 = 3).
Составим программу:
//обнулим переменную t
t := 0;
//проверим каждый элемент массива
for i:=1 to n do
if (a[i] >= 10) and (a[i] <= 99) and (a[i] mod 10 = 3) then
t := t+1;
//выведем результат на экран
writeln(t);