На паскале abc с простой версией(40 ) : среди заданных чисел найти количество двухзначных чисел. формат ввода: на первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000). на второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел. формат вывода: целое число. пример входных данных 5 1 -20 -3 40 0 пример выходных данных 2
var n,i,a,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
read(a);
if abs(a) in [10..99] then k:=k+1;
end;
write(k);
end.